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Mehr  64'er 

Obwohl  wir  Ihnen  in  jeder 
Ausgabe  des  64 'er  um  die 
120  Seiten  redaktionellen 
Teil  bieten,  reicht  der  Platz 
nicht  aus,  um  all  das  unterzu¬ 
bringen,  was  an  interessan¬ 
tem  und  nützlichem  Material 
vorhanden  ist.  Das  hat  natür¬ 
lich  auch  seine  positive  Sei¬ 
te:  Zeigt  es  doch,  wieviel  im 
»Volkscomputer«  und  in  sei¬ 
nem  größeren  Bruder  steckt 
—  und  daß  der  Benutzer 
nicht  so  schnell  an  die  Gren¬ 
zen  des  Systems  stößt. 

Da  bei  den  Lesern  eine 
starke  Nachfrage  nach  Kur¬ 
sen  besteht  und  die  einzel¬ 
nen  Kurse  ja  auch  in  einer 
vernünftigen  Zeit  zu  Ende 
gebracht  werden  sollen,  ha¬ 
ben  wir  versucht,  zunächst 
hier  Platz  zu  sparen:  Der  Kurs¬ 
teil  hat  eine  »kompaktere« 
Form  bekommen.  Auf  diese 
Art  läßt  sich  pro  Heft  mehr 
Information  unterbringen  — 
ohne  daß  das  (so  glauben 
wir  zumindest)  auf  Kosten 
der  Übersichtlichkeit  oder 
der  Lesbarkeit  geht. 

Nach  der  Neugestaltung 
des  Listingteils  ist  das  ein 
zweiter  Schritt,  um  die  Wün¬ 
sche  unserer  Leser  noch 
besser  zu  erfüllen  —  ohne 
daß  das  ohnehin  knapp  kal¬ 
kulierte  Magazin  dicker  und 
damit  teurer  werden  muß. 
Wahrscheinlich  werden  im¬ 
mer  noch  Wünsche  offen 
bleiben  —  aber  dafür  gibt  es 
ja  die  Karte  »Lesermeinung«, 
auf  der  Sie  (unter  anderem) 
mitteilen  können,  was  Ihnen 
an  Informationen  fehlt,  Sie 
können  sicher  sein,  daß  wir 
die  Karten  fortlaufend  sorg¬ 
fältig  auswerten  —  und 
schnell  reagieren,  wenn  wir 
feststellen,  daß  bestimmte 
Themen  besonders  gefragt 
sind. 

Michael  Pauly,  Chefredakteur 
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Interpod  für  C  64 
und  VC  20 

Das  in  England  entwickelte  In- 
terpod-Interface  ist  jetzt  auch 
auf  dem  deutschen  Markt  er¬ 
hältlich.  Dieses  Interface  ver¬ 
fügt  über  einen  IEEE-Bus  zum 
Anschluß  der  Commodore-Peri- 
pherie  mit  dieser  Schnittstelle, 
einen  getrennten  seriellen  Ein- 
und  Ausgang  sowie  eine 
RS232C-Schnittstelle. 

Damit  sind  bis  auf  die 
Centronics-Schnittstelle  alle 
wichtigen  Verbindungen  in  ei¬ 
nem  Gehäuse  vereinigt. 

Das  Interpod-Interface  ver¬ 
fügt  über  einen  eigenen 
6502-Prozessor.  Angeschlossen 
wird  es  an  die  serielle  Schnitt¬ 
stelle  vom  C  64  oder  VC  20.  An¬ 
geboten  wird  das  Interface  bei 
Boston  Computer  zu  einem  emp¬ 
fohlenen  Endverbraucherpreis 
von  398  Mark. 

Info.  Boston  Computer.  Rosenheimer  Stra¬ 
ße  145a,  8000  München  80,  Tel.  089/ 
491073/74 


I 

I 
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CP/M-CBM  64: 

Multi-Micro-Entwick- 

lungssystem 

Das  Multi-Micro-Entwick- 
lungssystem  vereinigt  die  bei¬ 
den  Betriebssysteme  Commo- 
dore-CBM  und  Digital  Research 
CP/M  2.2  in  einem  Gerät.  Es  ge¬ 
stattet  die  Entwicklung  verschie¬ 
dener  8-Bit  Mikroprozessor-Sy¬ 


steme  mit  Hüfe  eines  leicht  mo¬ 
difizierten  C  64.  Die  integrierte 
Programmiereinheit  arbeitet  mit 
interaktiver  Bildschirmführung 
auf  beiden  Betriebssystemen 
und  erlaubt  Filetransfer,  Dupli¬ 
zieren,  Schnellprogrammie¬ 
rung,  Anzeigen  von  Speicherin- 
halten,  Vergleich  zwischen  Me¬ 
mory  und  EPROM,  Erased-Test, 
mit  frei  definierbarem  Memory- 
und  EPROM-Bereich.  Program¬ 
mierbar  sind  zur  Zeit  die 


EPROM-Typen  Intel  2758  bis 
27256,  Texas  2516  bis  2564,  2732, 
2764.  Außerdem  die  Single- 
Chip-Mikroprozessoren  Intel 
8741  bis  8749  beziehungsweise 
8041  bis  8050  inklusive  der  H- 
und  C-Typen. 

Das  System  besteht  aus  CBM- 
CP/M-Zentraleinheit  mit  64  KBy¬ 
te  Speicher,  12  Zoll  S/W-Monitor, 
5 14-Zoll-Diskettenlaufwerk, 

EPROM-Programmiereinheit, 
EPROM-Löschgerät,  Drucker, 
40/80  Zeichen  Bildschirrnum- 
schaltung  und  Tastatur. 

Info:  Ingenieurbüro  für  elektronische  Sy¬ 
steme,  Dipl.-lng.  K.E  Wnuk,  Nansenstr.  3, 
6100  Darmstadt.  Tel.  061 51/84439 

Computer-Seminare 

Cossem  bietet  in  Nürnberg 
Kursprogramme  für  das  Erler¬ 
nen  der  Programmiersprachen 
Pascal,  Basic,  Fortran  und  As¬ 
sembler  6502/6510  als  auch  ei¬ 
nen  »Anfängerkurs«  (Wie  funk¬ 
tioniert  ein  Computer?)  und  ei¬ 
nen  speziell  auf  den  Commodo- 
re  64  ausgelegten  Kurs  an. 

Info:  Cossem.  Computer-Software-Semina- 
re.  Gerlestraße  13,  8500  Nürnberg  40,  Tel. 
09131/26228. 
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Neue  128-KByte-ROM- 
Platine  für  den  Commo- 
dore  64 

Eine  Platine  für  insgesamt  128 
KByte  ROM  wurde  von  Frank 
Computertechnik,  München 
vorgestellt.  Die  Platine  ist  für  die 
Aufnahme  von  8-  bis  32-KByte- 
EPROMs  vorgesehen.  So  kön¬ 
nen  Speicherstufungen  in  8-,  16-, 
32-KByte-Schritten  vorgenom¬ 
men  werden.  Die  Steuerung  der 
einzelnen  Speicherbereiche 
übernehmen  zwei  Register.  Die 
Bedienung  dieser  Register  wird 
in  der  Form  eines  Auswahlme¬ 
nüsprogrammiert.  Ein  Directory 
mit  dem  Inhalt  der  Platine  wird 
so  angezeigt  und  das  gewünsch¬ 
te  Programm  mit  Knopfdruck 
gestartet.  Da  die  Platine  vollstän¬ 
dig  abzuschalten  ist,  sollte  einer 
dieser  Wahlpunkte  auch  aus 
dem  Sprung  in  das  normale  Ba¬ 
sic  bestehen.  Die  Platine  beein¬ 
flußt  dann  das  Laden  von  Basic- 
und  Maschinenprogrammen  in 
keiner  Weise.  Ein  Verlust  an 
Speicherplatz  tritt  in  diesem  Fall 
nicht  auf.  Die  Beschreibung  zur 
Platine  ist  sehr  ausführlich  und 
geht  auch  auf  verschiedene  Pro¬ 
grammierschritte  (Autostartken¬ 
nung,  Betriebssystem-  und 
Basic-Initialisierung)  ein.  Die 
Platine  ist  sehr  solide  aufgebaut 
und  wird  mit  einem  stabilen  Ge¬ 
häuse  geliefert.  Der  Preis  soll 
bei  zirka  100  Mark  liegen. 

(Arnd  Wängler) 

Info:  Frank  Computertechnik,  Metzstraße 
8,  8000  München 


Portables  Meßdatenerfas¬ 
sungsystem  mit  SX  64 

Der  SX  64  kann,  mit  einem  di¬ 
gitalem  Speicheroszilloskop 
ausgesrüstet,  zur  Dastellung 
und  Berechnung  periodischer 
als  auch  transienter  Signale  in 
Industrie  und  Forschung  einge¬ 
setzt  werden. 

Die  Abtastrate  beträgt  20  MHz 
bei  8  Bit,  die  Speichertiefe  reicht 
von  4  bis  16  KByte  und  es  sind  so¬ 
wohl  Realtime-  als  auch  Spei¬ 
cherbetrieb  möglich.  Es  lassen 
sich  beispielweise  Impulssigna¬ 
le  bis  zu  6  MHz  darstellen.  Die 
Darstellung  auf  dem  Oszilloskop 
ist  flackerfrei  und  kann  durch  ei¬ 
ne  Lupenfunktion  unterstützt 
werden. 

Info:  GTE,  Brunnengräber  Str.  6,  6362 
Wöllstadt  2,  Tel.  06034/3024/3025 


Minimodem  billiger 

CTK  hat  die  Preise  für  die 
Akustikkoppler  der  Serie  Mini¬ 
modem  aus  dem  Hause  Modular 
Technology  um  25  Prozent  ge¬ 
senkt.  Das  CTK  Minimodem 
3005  (mit  FTZ-Nummeb^.3QQ 
Baud  vollduplex  kostet  nun  585 
Mark.  Das  neue  Schwestermo¬ 
dell  CTK  Minimodem  3005  S 
(Origmate/Answer  umschalt- 
bar)  kostet  jetzt  655  Mark. 

Info:  CTK  Computer-Text-  und  Kommunika¬ 
tions-Systeme,  Dolmanstraße  82,  3060  Bel¬ 
gisch  Gladbach 


Kurze  Reparaturzeiten 

%äMSSe  Reparaturen  kündigt 
der  offizielle  Systemhändler  für 
CBM-Geräte,  die  Firma  HDS  in 
München,  an.  Die  Fachwerkstät¬ 
te  übernimmt  Servicearbeiten 
an  allen  CBM-  und  VC-Geräten 
und  will  diese  innerhalb  kürze¬ 
ster  Zeit  fachmännisch  ausfüh¬ 


ren.  Wir  haben  die  Probe  ge¬ 
macht  und  bekamen  unser  Ge¬ 
rät  innerhalb  eines  Tages  repa¬ 
riert  zurück.  Für  Bastler  bietet 
HDS  zusätzlich  den  Verkauf  von 
Commodore-spezifischen  ICs 
(in  kleinen  Mengen). 

Info:  HDS  Prüftechnik,  Maria-Eich-Str.  1, 
8000  München  60.  Tel.  (089)  837021-22 


Matrixdrucker  von 
Olympia 


Von  Olympia  gibt  es  jetzt  aus 
der  compact-Serie  mit  dem 
Olympia  electronic  compact  NP 
auch  einen  Matrixdrucker.  Die¬ 
ser  Drucker  soll  Epson  FX- 
kompatibel  sein  und  hat  dazu 
noch  weitere  Eigenschaften.  So 
kann  per  Tastendruck  in  Schön¬ 
schrift  gedruckt  werden.  Durch 
eine  Gummiwalze  wird  ein  sehr 
leiser  Druck  erzielt.  Mit  Bedien¬ 
tasten  kann  der  linke  und  rechte 
Rand  gesetzt  werden.  Der  Trak¬ 
tor  ist  auf  schmales  Papier  (ein- 
bahnige  Etiketten)  einstellbar. 
Der  Preis  beträgt  für  die  Ausfüh¬ 
rung  mit  Centronics-Interface 
1698  Mark,  mit  zusätzlicher 
V.24-Schnittstelle  1948  Mark.  Die 
Ausführung  für  den  C  64  mit  Gra¬ 
fikfähigkeit  kostet  ebenfalls  1948 
Mark. 

Info:  iti-Datentechnik,  Telemannstraße  18. 
7250  Leonberg,  Tel.  071 52/6305/7  1074 


Kopfreinigungs-Diskette 

Das  Kopfreinigungs-Kit  von 
Dysan  besteht  aus  zwei 
Reinigungs-Disketten  und  einer 
Dosierflasche  mit  genügend 
Reinigungszyklen  für  40  Reini¬ 
gungsvorgänge  (50%  mehr  als 
bisher).  Mit  dem  Kit  sollen  Da¬ 
tenverlust,  Systemausfall  sowie 
Disketten-  und  Kopf-Verschleiß 
als  Folge  von  Verschmutzungen 
vermieden  werden.  Als  Beson¬ 
derheit  haben  die  Reinigungs- 
Disketten  einen  dünnen  Film- 
Aufkleber  über  der  Schreib-/ 
Leseöffnung  mit  der  bei  einseiti¬ 
gen  Laufwerken  eine  bessere 
Druckverteilung  erzielt  wird. 
Der  Preis  liegt  bei  75  Mark  ohne 
Mehrwertsteuer. 

Info:  Dysan,  Frankfurter  Allee  27-29,  6236 
Eschborn,  Tel.  061 96/48 1641 
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Interessant  bis  brisant - 

die  etektroni 


Würde  die  Tagesschau  über  Mailboxen  berichten,  Herr 
Köpke  könnte  jeden  Abend  neben  einem  Haufen  neuer  Tele¬ 
fonnummern  Erstaunenswertes  dem  Publikum  mitteilen. 
In  der  bundesdeutschen  Mailbox-Szene  tut  sich  allerhand; 
Grund  genug,  sich  einmal  genauer  umzuschauen. 


Was  eine  Mailbox  ist,  dürf¬ 
te  mittlerweile  sicher 
hinreichend  bekannt  sein. 
Wie  eine  solche  funktioniert 
und  zu  betreiben  ist,  hat  sich 
wohl  auch  schon  rumgespro¬ 
chen,  denn  wie  sonst  würden 
diese  elektronischen  Brief¬ 
kästen  jeden  Tag  wie  Kraut 
und  Rüben  aus  dem  Boden 
wachsen,  der,  nebenbei  be¬ 
merkt,  ausgerechnet  im  In¬ 
dustriegebiet  rund  um  den 
Ruhrpott  hierfür  auch  noch 
am  fruchtbarsten  erscheint. 

Mailboxen  gibt  es  seit  der 
Erfindung  der  telefonischen 
Datenfernübertragung, 
doch  erst  preiswerte  Geräte, 
wie  zum  Beispiel  Akustik¬ 
koppler,  lassen  es  zu,  daß 
jetzt  auch  jeder  seine  eigene 
Box  aufmachen  kann.  Vor¬ 
aussetzungen  hierfür  sind  le¬ 
diglich  die  FTZ-Nummer  am 
Koppler  und,  falls  galvanisch 
angeschlossen,  also  per 
Postmodem,  auch  noch  eine 
spezielle  für  den  Computer. 
Das  benötigte  Programm 
gibt  es  für  Programmiergeg¬ 
ner  bereits  im  Handel. 

Auf  der  anrufenden  Seite 
bedarf  es  nur  der  Terminal¬ 
software,  und  schon  steht  ei¬ 


nem  die  Welt  offen.  Was  sich 
aber  in  dieser  nun  wirklich 
abspielt,  reicht  von  banal 
über  kurios  bis  hin  zu  Din¬ 
gen,  für  die  sich  auch  Ver¬ 
waltungsdetektive  der  Post 
zu  interessieren  beginnen. 

Doch  vornweg:  Die  mei¬ 
sten  Mailboxen  dienen  dem 
harmlosen  Austausch  von  In¬ 
formationen  zwisch 
puterfreaks  aller 
Da  werden  Adventure-Lö- 
sungen  gesucht  oder  weiter¬ 
gegeben,  Tips  und  Tricks  für 
Hard-  oder  Software  verra¬ 
ten,  Termine  für  Clubtreffen 
vereinbart  oder  auch  mal 
mitgeteilt,  daß  Herbert  Bit 
und  Renate  Byte  »ONLINE«, 
lies  freundschaftlich  und 
frisch  verliebt  zusammen 
sind. 

Im  Grunde  genommen  al¬ 


so  eigentlich  nichts  anderes 
als  ein  Schwarzes  Brett,  elek¬ 
tronisch  auf  dem  Bildschirm 
dargestellt  und. einer  breite¬ 
ren  Hacker-Öffentlichkeit 
zugänglich  gemacht.  Zudem 
bieten  einige  Mailboxen, 
meist  die,  die  von  kommer¬ 
ziellen  Anbietern  oder  Ver-' 
lagen  betrieben  werden, 


nug  sind  dies  jedoch  solche, 
die  ohnehin  schon  hinrei¬ 
chend  bekannt  sind;  man 
spart  sich  aber  immerhin 
das  mühselige  Eintippen  der 
Zeilen. 

Doch  es  gibt  auch  andere, 
mehr  verborgene  Seiten  in 
den  Mailbox-Dateien.  Bei  ei¬ 
nigen  kann  man  sich  direkt 
oder  via  Post  als  Benutzer 


eintragen  lassen  und  so 
Nachrichten  empfangen,  die 
nur  für  sie  oder  ihn  persön¬ 
lich  bestimmt  sind.  So  ist  ein 
relativer  Schutz  der  Daten, 
die  man  weitergeben  oder 
bekommen  will,  einigerma¬ 
ßen  gewährleistet.  Wer  also 
in  die  höheren  »Hackerwei¬ 
hen«  im  Mailbox-Verkehr  ein¬ 
steigen  will,  braucht  dem¬ 
nach  unbedingt  einen  Hak- 
ker-Namen  und  ein  »gehei¬ 
mes«  Password. 

Wem  hierzu  nichts  einfällt, 
kann  sich  ja  fürs  erste  mal  als 
GAST,  GUEST,  VISITOR 
oder  sonstwas  einloggen, 
das  heißt  melden;  die  mei¬ 
sten  Mailboxen  öffnen  dann 
zumindest  für  den  »öffentli¬ 
chen«  Teil  der  Nachrichten, 
Mailbox-Lesen  und  Mailbox- 
Eingeben,  ihre  Pforten.  Und 


n.  Com-  nr-oA  die  Möglichkeit,  Pro- 
’ouleur:  grarnme  in  Form  von  Listings 
kostenlos  abzurufen.  Oft  ge- 


Einige  Mailboxen  in  Deutschland 


x  14 


Sie  sind  der 

103S1 . 

Anrufer 

MM„MM  M  K  K  M  M 

**** 

*** 

*  * 

*  * 

* 

* 

*  XXX 

*  » 

***> 

*  * 

*  -» 

* 

* 

*  ***** 

* 

* 

Franz i s-Teledatense 

vice 

5.1 

n  n. 


***** 


we  i ter=CTRL-Q, 


Ausg . s top=CTRL-S,  dann 
enue=€TRL-X 
Inhalt  von  mc  8/84  ist  schon  abrufbar r  A 
ls  Suchbegriff  nach  Befehi=f 
(Return)  einfach  "8 4/8/”  eingeben  (Rubri 
k  HC  ±384) . 

Bitte  vergessen  Sie  bei  Ma x 1  box -E i ngaben 
nicht,  nach  spaetestens  etwa 
7  8  Zeichen  »**  t  Return  die  Zeile  abiuschl 
iessen.  Danke! 


Schon  sehr  lange  aktiv,  Tedas  von  Franzis 


*  D  E  C  A  t*E  S  IMFORKATIOHS  -  SVStEM 
^Uers.  III 

:  *  :  *  :  :  *  :  XMMX  :*:*;*  *  ;  *****  :  :  **  :  **  :  **  ;  : 

SY  S£  F.  M-  DATUM  =  =  >  16.89.84 

Ihr  LOGON  CMAHE/PASSMORT)  ==>  ****:* 

=  =  =  GAST  === 

Wye  Sie  E  IH8ETrftGEWLR-8Eflü£ZER  werden 
steht  in  Menue  i  /  Punkt  4. 

*:**  MI tTEILl NGEH  UGK  DECfttES  **** : 

**  :  KEIME  HITTEILMG  EUER  SIE  :***: 

BED IGMUMGSAMLE  ItuMG  C  J?K  )  ==>  n 

SIND  SIE  SICHER  ??? 

Mi t  welche«  Befehl  wird  die  Jebertragung 
BLENDET  ? 


Ein  humorvoller  Sysop  bei  Decates 
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sehen  Briefkästen 


spätestens  beim  Lesen  die¬ 
ser  »MSGs«,  Messages,  kom¬ 
men  jedem  bestimmt  die 
Ideen  für  einen  eigenen  »LO- 
GON«  oder  Codenamen. 
Hier  einige  Beispiele:  Alba¬ 
tros,  Hacman,  Prof.  Falken, 
Donald  Duck,  Blackbird,  Si- 
ster  CPU,  Hacintosh,  Dr.  Bi- 
naer,  Mr.  Bit  &  Dr.  Byte,  Co- 
do,  Interram  oder  Hein-Soft. 
Namen  gibt  es  noch  und  nö- 
cher. 

Einige  findet  man  in  gerad- 
zu  jeder  Box  wieder,  andere, 
wohl  wegen  der  hohen  Tele¬ 
fonkosten,  nur  in  regionalen. 
Wiederum  andere  Teilneh¬ 
mer  verwenden  einfach  ih¬ 
ren  »Vornamen  aus  Dings¬ 
bums«.  Und  manche  haben 
anscheinend  ihre  Namen 
und  Erfahrungen  im  Bereich 
des  CB-Funks  gesammelt. 

Doch  schauen  wir  uns  die 
Mailboxen  und  deren  Inhalt 
doch  einmal  etwas  genauer 
an.  Zwei  Gruppen  lassen 
sich  auf  Anhieb  ausmachen: 
Die,  die  jede  Nachricht  erst 
nach  Zensur  »reinlassen«, 
das  heißt  veröffentlichen, 
und  die,  die  (fast)  ohne  Zen¬ 
sur  arbeiten.  In  beiden 
Gruppen  geht’s  quer  durch 
den  Garten.  Doch  nur  in  letz¬ 


teren  findet  der  »PHREAK«, 
gleich  Kunstwort  aus  »PHo- 
ne«  und  »Computer  fREAK«, 
die  Informationen,  die  sein 
Herz  höherschlagen  lassen 
werden.  Allerdings  diese 
dann  oft  in  einer,  für  den 
Telekommunikations-Anfän¬ 
ger  und  -Laien  gänzlich  un¬ 
verständlichen  Abkürzungs¬ 
sprache. 

Wie  gesagt,  befinden  sich 
die  meisten  Mailboxen  im 
Telefonbereich  »02xxx«,  und 
dort  beginnt  auch  unser 
Überblick.  Die  Telefonnum¬ 
mern  der  Mailbox,  deren  ge¬ 
nauer  Namen  und  ihre  Be¬ 
triebszeiten  sind  im  Kasten 
ausführlich  aufgeführt.  Falls 
dieser  nicht  vollständig  ist, 
freut  sich  die  Redaktion  über 
jeden  eingesandten 
trag. 

Und  noch  eine  Bitte:  Be¬ 
nutzt  die  Mailboxen  nur  zu 
den  angegebenen  Öff¬ 
nungszeiten.  Entweder  wird 
sonst  der  normale,  kommer¬ 
zielle  Betrieb  tagsüber  ge¬ 
stört  oder,  bei  »Handvermitt¬ 
lung«,  wo  der  SYSOP  (SY- 
Stem  OPerator)  sich  erst  mit 
VIOCE  meldet,  um  dann  den 
Hörer  auf  den  Koppler  zu 
quetschen,  ist  es  gut  mög- 


N  .  C. .  S  . 


**  ***  ******  ******  *** 

**  **  *****  w*  *****  **  ** 

**  ****  *  •  ****  *-***  MXM 

**  *  ****  »««HKXXXIIIOm  ** 

*-*  **  *****  *-*  MX**  **  ** 

* *  -*-•*•-*  ******  ******  *** 

t*M**XW*****XX** 


C1AST)  UNZENSIERTE  MAILBOX  RAUM  KIEL 
Hallo  und  WillkoHHen  bei  N.C.S. 


lieh,  daß  Ihr  arme,  nicht 
hackende  Menschen  aus  ih¬ 
rem  wohlverdienten  Schlaf 
klingelt. 

Wenn  eine  große,  öffent¬ 
lich-rechtliche  Institution  wie 
der  Westdeutsche  Rund¬ 
funk,  WDR,  sich  dem  Thema 
Computer  annimmt,  ist  man 
ja  schon  froh,  daß  in  den  »al¬ 
ten  Medien«  überhaupt  et¬ 
was  mit  den  »neuen«  ge¬ 
schieht.  Und  Dank  dieses 
»WDR-Computer-Clubs«  gibt 
es  auch  eine  gleichnamige 
Mailbox.  Leider  dachte  man 
zu  wenig  an  die  Anrufer,  die 
nur  mit  40  Zeichen  auf  dem 


Bildschirm  arbeiten  können, 
und  so  ist  die  nicht  umschalt- 
bare  60-Zeichen-Anzeige 
manchmel  etwas  mühselig 
zu  lesen.  Inhaltsmäßig  muß 
eine  solche  »offizielle«  Mail¬ 
box  wohl  sehr  aufpassen. 
Hauptsächlich  beschränkt 
sich  dieser  meist  auf  liebe 
Grüße  und  harmlose  Tips. 

So  ziemlich  das  gleiche 
Bild  liefern  auch  die  beiden 
Ortskonkurrenten  »Epson« 
und  »Software-Express«.  Er¬ 
stem  erzählen  viel  von  ihren 
eigenen  Modellen  und  letz¬ 
tere,  trotz  ihres  »guten«  Rufes 
in  der  Hacker-  und  Cracker- 


Der  WDR  -  CONPUTLRCLUB 

ir"°sst  Sie  Hit  einen 
M  S  9753  Transdäta  Computer 


**************************************** 

*  WDR-  Cowputerclub  Konmin  i  kat  i  ons 
systen  * 

*  KOMCOM  -  i  Tel. -Nr.  02  21  -  37  18 

76  * 

*  Uersion  1.0  von  Guenter  Eisbach  (C 

)  198-4  * 

*  T i ne  out:  30  Sekunden 

* 

*-  -  - - 


—  * 


*  Bedienung 
sanleituriQ- 

*  RETURN 

b  * 

*  Ctrl /S 

* 


sthüesst  jede  Eingabe  a 
haelt  d*e  Ausgabe  an 


Gut,  aber  schwierig  zu  lesen,  die  WDR-Mailbox 


OTIS  U2  < 1 
A  G  M  t  F  * 

HELL MU  T  LANDOLT  C OHMODÜRE-COMPUT LR 


Sie  sind  der  4581.  Anrufer' 
Benutzernr.?  (0  ~  (  i  )•  laerung)?  0 


NCS  ist  eine  der  interessantesten  Mailboxen 


Haben  Sie  schon  eine  Benutzernu 
Wenn  nicht,  dann  tippen  Sie 

'neu  ' 

Sie  beko nne  n  dann  eine  zu geteilt 
Sie  nur  na  1  'reinschauen  wollen, 
s  < hre i beu  S i e 

'■gaS  t  ' 

Haben  Sie  Ihre  Be  mit zernuhner 
Mailboxen  als  neues  Medium  für  Werbung 


r? 


We  n  n 
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Scene  nun  doch  wieder  we¬ 
nig. 

Wer’s  etwas  intimer  haben 
will,  ruft  doch  mal  um  die 
Ecke  an.  Dort  freuen  sich  die 
»C  64-Box«,  die  »Saturn-Box« 
und  die  der  Firma  »Symic« 
höchster  Aktualität  und  Akti¬ 
vität  auf  betreibender  wie 
auf  anrufender  Seite.  Dies 
kommt  den  Tips  &  Tricks  ge¬ 
nauso  zugute  wie  den  News, 
ohne  die  kein  Hacker  leben 
kann. 

Immer  noch  im  selben  Vor¬ 
wahlraum  02xxx  tummeln 
sich  seit  neuestem  die  Boxen 
»Mythos«  (heißer  Atari-Tip), 
»Radio  Schossau«,  »Esprit«, 
»Computer  Center  CC  EVD« 
und  »Kobra«.  Wer  nicht  gera¬ 
de  in  der  Nähe  wohnt  und 
Geld  für  teure  Ferngesprä¬ 
che  hat,  wird  dort  die  eine 
oder  andere  nützliche  Info 
sicher  finden.  Ansonsten 
herrscht  meist  nur  Lokalko¬ 
lorit  vor. 

Das  gleiche  gilt  übrigens 
auch  für  die  Inselstadt  Ber¬ 
lin.  Trotz  schöner  Anlagen, 
auf  denen  die  T.I.C.  und  die 
»MB-Berlin«  betrieben  wer¬ 
den,  gibt  es  in  ande'ren  Mail¬ 
boxen,  pardon  Berlin,  ein¬ 
fach  »heißere«  Informationen 
und  News. 

Nächste  Station:  Hamburg. 
Doch  das  Tor  zur  Welt  ver¬ 
hält  sich,  was  seine  Mailbo¬ 
xen  angeht,  wie  das  eigene 
Wappen  —  zu.  Entweder  ist 
wirklich  dauernd  besetzt 
oder  stundenlang  nur 
Quatsch  auf  dem  Bildschirm. 
Denn  die  beiden  Boxen, 
»Uni-Hamburg«  und  »M.C.S« 


gelten  bekanntlich  als  die 
Haus-Boxen  des  Chaos- 
Computer-Clubs.  Jenen 
Jungs  also,  die  sich  selbst  zu 
den  Oberhackern  der  Na¬ 
tion  gekürt  haben.  Und  dem¬ 
entsprechend  sind  auch  die 
meisten  Anfragen  aus  der 
ganzen  BRD  in  diesen  Boxen. 
Antwort  gibt’s  leider  nur  sel¬ 
ten. 

Weiter  nördlich  wird’s 
dann  wieder  lustig  bis  heiß. 
In  Pinneberg  eröffnete  vor 
kurzem  die  »Wang-Info«  (ver¬ 
suchsweise)  im  24  Stunden¬ 
betrieb  ihre  elektronischen 
Pforten.  Zwar  ist  die  Teilneh¬ 
merzahl  verständlicherwei¬ 
se  noch  gering,  doch  immer¬ 
hin!  Zudem  läßt  ein  Helpme- 
nü  von  40  KByte  auf  vielfälti¬ 
ge  Entwicklungsmöglichkei¬ 
ten  schließen. 

Ganz  heiß  wird’s  dann  in 
Kiel.  Dort  ist  die  »N.C.S.-Box« 
zu  Hause  und  tourjour  zu  er¬ 
reichen.  Wer  sich  da  als 
User  eintragen  läßt,  hat  auch 
wirklich  was  davon. 

Höchst  informativ  wird  es 
dann  erst  wieder  rund  um 
die  Main-Metropole.  Bei 
»Decates«  lohnt  sich  das 
Remschauen  allein  schon 
wegen  der  witzigen  Kom¬ 
mentare  des  »Sysop«.  Ganz 
zu  schweigen  von  der  inter¬ 
nationalen  Mailbox-Num- 
mernliste  und  den  vielen  in¬ 
formativen  Einträgen  der 
User.  Als  eine  der  wenigen 
bietet  »Decates«  auch  ein 
»Download«  von  Programmli- 
stings  an. 

Gleich  nebenan  ist  »Tecos« 
mit  einer  ebenfalls  sehr  gu¬ 


ten  Box  beheimatet.  Die 
»Taunus-Box«  mag  wohl  kei¬ 
ner,  denn  sie  ist  leider  leer. 
Ganz  anders  dagegen  die 
»Otis-Box«.  Sehr  interessant 
und  sehr  aktuell.  Eine  priva¬ 
te  Box,  die  auch  Werbung 
und  Angebote  führt. 

Im  Süden  ist  dann  wieder 
krasse  Ebbe.  Hier  schemt's, 
kriegen  die  Jungs,  trotz  man¬ 
nigfaltigen  Ankündigungen, 
emfach  kein  Bein  aufs 
Mailbox-Land.  Einzige  und 
nicht  gerade  aufregende 
Ausnahme  ist  die  vom  Fran¬ 
zis-Verlag  betriebene  Box 
»Tedas«.  Ebenfalls  mit 
Programm-Service  und  viel 


Eigenwerbung  für  das  Ver¬ 
lagsprogramm.  Nachrichten 
erscheinen  im  Bulletin  erst 
nach  vorheriger  Zensur 
durch  die  Redaktion  und  se¬ 
hen  dann  entsprechend  brav 
aus. 

Würde  es  Noten  geben, 
nur  einige  wenige  würden 
das  Prädikat  »sehr  gut«  bei 
allen  Kriterien  verdienen. 
Manche  sind  einfach  beim 
besten  Willen  nicht  benut¬ 
zerfreundlich,  andere  zu 
lahm  oder  zu  bieder.  Doch 
wir  stehen  hier  in  diesem  un¬ 
seren  Lande  ja  erst  am  An¬ 
fang  einer  Mailbox-Karriere. 

(Klaus  Koch/aa) 


Telefon 

Name 

Zeit 

0201-237396 

Radio  Schossau 

22-10  Uhr 

0211-414579 

Software-Express 

ab  18  Uhr 

02 11-593453 

Epson 

ab  18  Uhr 

0211-328249 

EDV 

? 

02151-801339 

C  64-Box 

ab  18  Uhr 

02161-200928 

Symic 

7 

0221-371076 

WDR 

00-24  Uhr 

0221-1616284 

Saturn 

ab  18  Uhr 

02202-50033 

Computer  Center 

ab  18  Uhr 

0231-779620 

Mythos 

ab  18  Uhr 

02331-1 6401 

Kobra 

? 

02841-66241 

Esprit 

7 

030-7115078 

T.I.C. 

ab  19  Uhr 

030-3052635 

MB-Berlin 

17-09  Uhr 

040-41233098 

Uni-Hamburg 

20-06  Uhr 

040-6523486 

M.C.S 

00-24  Uhr 

04101-23789 

Wang-Info 

00-24  Uhr 

04348-75  13 

N.C.S. 

00-24  Uhr 

06081-9677 

Taunus 

7 

06154-5 1433 

Decates 

ab  18  Uhr 

061 81-48884 

Otis 

ab  18  Uhr 

069-816787 

Tecos 

20-07  Uhr 

0711-519008 

Pluto 

7 

089-596422 

Tedas 

00-24  Uhr 

089-598423 

Tedas 

00-24  Uhr 

DAS  ERSTE  64’er  SONDERHEFT  IST  DA: 

TIPS  &TRICKS 

FÜR  COMMODORE  64  und  VC  20! 


Die  64’er  Redaktion  bekommt  eine  Menge  sehr  guter 
Programme  zugesandt,  die  sich  alle  zur  Veröffentli¬ 
chung  eignen  würden.  Leider  reicht  der  Platz  nicht 
aus,  um  alle  guten  Programme  in  einem  vertretbaren 
Zeitraum  abzudrucken.  Deshalb  haben  wir  ein  Sonder¬ 
heft  produziert,  in  dem  26  Listings  zu  den  Bereichen 
Floppy,  Floppy-Betriebssystem,  Basic-Erweiterungen 


für  den  C  64  und  VC  20,  Utilities  sowie  Tips 
und  Tricks  zusammengefaßt  sind.  Darunter  befinden 
sich  Programme,  nach  denen  Sie  sicherlich  lange  ge¬ 
sucht  haben.  Um  nicht  alle  Programme  selber  eintip¬ 
pen  zu  müssen,  gibt  es  den  Diskettenservice.  Alle 
Floppy-Programme  auf  einer  Diskette  und  alle  Utility- 
Programme  auf  einer  anderen  zu  je  29,90  Mark. 


Alle  Listings  auch 
auf  Diskette  erhältlich! 


AB  23.11.  FÜR  NUR  DM  14,-  IM  ZEITSCHRIFTENHANDEL 
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Die  Zwangspausen 
des  C  64 

Bei  längerem  Suchen  in  einer 
Indexsequen  Hellen  Da  tei  macht 
der  C  64  Pausen  bis  zu  zirka  fünf 
Minuten  (bei  Datamat  bis  zu  20 
Minuten!).  Woher  kommen  die 
Pausen,  und  wie  sind  sie  zu  be¬ 
seitigen?  Henry  König 

Wenn  der  C  64  sehr  viele 
Strings  zu  verarbeiten  hat,  muß 
er  ab  und  zu  seinen  dafür  benö¬ 
tigten  Speicherplatz  aufräumen. 
Das  heißt,  er  überprüft,  welche 
Variablen  noch  aktuell  sind  und 
benötigt  werden.  Den  Rest 
schmeißt  er  weg.  Die  dadurch 
entstandenen  Lücken  werden 
durch  die  verbleibenden  Werte 
geschlossen.  Diese  Vergleiche 
und  Verschiebearbeiten  sind 
der  Grund  für  diese  langen  War¬ 
tezeiten.  Den  Vorgang  selber 
nennt  man  auch  Garbage  Col¬ 
lection.  Man  kann  die  Wartezeit 
verringern,  indem  man  ab  und 
zu  ein  FRE(O)  ausführt.  Dann 
wird  automatisch  eine  Garbage 
Collection  ausgeführt.  Leider 
geht  das  nicht  mit  Programmen, 
die  nicht  unterbrochen  werden 
können  und  die  ein  Garbage 
Collection  nicht  automatisch 
verhindern. 

Ungewünschte 
Programme  von  Diskette? 

Wenn  ich  ein  Programm  von 
Floppy  lade,  kommt  manchmal 
ein  Programm,  das  gar  nicht  ge¬ 
wünscht  wurde. 

Thomas  Stepputat 

Abgesehen  davon,  daß  Ihre 
Floppy  vielleicht  defekt  ist,  kann 
es  andere  Gründe  für  dieses 
Verhalten  geben.  Setzen  Sie  zum 
Beispiel  Wildcards  ein,  das  sind 
die  Zeichen  »*«  und  »?«  zum  Ab¬ 


Fragen  Sie  doch! 

Selbst  bei  sorgfältiger  Lek¬ 
türe  von  Handbüchern  und 

Programmbeschreibungen 
bleiben  beim  Anwender  im¬ 
mer  wieder  Fragen  offen.  Viel 
mehr  Fragen  ergeben  sich 
bei  Computer-Interessenten, 
die  noch  keine  festen  Kontak¬ 
te  zu  Händlern,  Herstellern 
oder  Computerclubs  haben. 
Sic  können  der  Redaktion  Ih¬ 
re  Fragen  schreiben  oder 
Probleme  schildern  (am  ein¬ 
fachsten  auf  der  beigehefte¬ 
ten  Karte).  Wir  veranlassen, 
daß  die  Fragen  von  einem 
Fachmann  beantwortet  wer¬ 
den.  Allgemein  interessieren¬ 
de  Fragen  und  Antworten 
werden  veröffentlicht. 

kürzen  von  Namen  oder  Erset¬ 
zen  von  Zeichen,  so  kann  es  na¬ 
türlich  Vorkommen,  daß  ein  File 
geladen  wird,  das  mit  den  glei¬ 
chen  Zeichen  anfängt  wie  das 
gewünschte,  jedoch  vor  diesem 
im  Directory  steht.  Eine  andere, 
jedoch  ziemlich  unwahrscheinli¬ 
che  Ursache  könnte  in  der  Ver¬ 
bindung  VC  1541  und  den  von  Ih¬ 
nen  angegebenen  Drucker  VC 
1526  liegen,  der  ja  bekanntlich 
den  seriellen  Bus  stören  kann. 
Allerdings  ist  uns  diese  von  Ih¬ 
nen  beschriebene  Wirkung 
noch  nicht  vorgekommen. 

C-Compiler  für  C  64? 

Ich  suche  dringend  einen  »C«- 
Compiler  für  den  C  64.  Wer 
kann  helfen? 

Hermann  Eisele 


LCD-Display  für  C  64? 

Läßt  sich  an  den  Commodore 
64  ein  LCD-Display  anschlie¬ 
ßen?  Wer  hat  eine  Bauanleitung 
oder  kann  Hinweise  geben?  Wo 
bekomme  ich  ein  für  diese 
Zwecke  brauchbares  LCD- 
Display? 

Thomas  Müller 

* 

MIPS  802  S<WER 
baugleich  mit  VC  1526? 

Ich  habe  eine  C  1541  mit  der 
ROM-Version  5  (neueste  Ver¬ 
sion).  Kann  ich  den  Drucker 
1526  ohne  Probleme  betreiben? 
Ist  der  MPS  802  absolut  bau¬ 
gleich  mit  dem  1526? 

Andreas  Linnebach 


Deutsche  Anleitung 
für  MPS  802? 

Ich  brauche  unbedingt  eine 
deutsche  Anleitung  für  den 
MPS  802. 

Peter  Sintke,  Akazienweg  4, 
8343  Triftem 

Eigentlich  sollte  es  Sache  Ih¬ 
re  rmmodore- Händlers  sein, 
Ihnen  eine  deutsche  Anleitung 
zu  besorgen.  Aber  vielleicht  hilft 
Ihnen  ein(e)  Leser(in). 


Textverarbeitung  mit  DIN- 
Tastatur  und  deutschen 
Umlauten? 


Betrachtet  man  die  Hardware 
des  MPS  802,  stellt  man  eine 
weitgehende  Baugleichheit  zum 
1526  fest.  Das  bezieht  sich  auch 
auf  das  identische  Betriebs¬ 
handbuch.  Wenn  Sie  beim  1526 
die  ROM-Version  7C  besitzen 
(die  neueste  Version),  gibt  es 
keine  Probleme.  Der  MPS  802 
besitzt  das  gleiche  ROM.  Ihre 
Version  können  Sie  mit  dem 
Drucker-Selbsttest  feststellen. 

Mailbox  mit  C  64? 

Wer  kann  mir  Telefonnum¬ 
mern  nennen,  unter  der  ein  C  64 
eine  Mailbox  bedient? 

Stephan  Prinz 

Spektral-Analyse 
mit  C  64? 

Ich  möchte  meinen  C  64  als 
Spektral-Analyser  einsetzen. 
Bisher  konnte  ich  keine  entspre¬ 
chende  Erweiterung  finden. 
Wer  hilft?  Emil  Kubeck 


Gibt  es  für  den  C  64  Textverar¬ 
beitungsprogramme,  die  eine 
deutsche  DIN-Tastatur  auf  dem 
Commodore  ermöglichen  mit 
Ausdruck  der  deutschen  Um¬ 
laute?  Joachim  Ludwig 

Es  gibt  sogar  mehrere  Pro¬ 
gramme,  die  das  (fast)  können. 
SM-Text  hat  einen  kompletten 
deutschen  Zeichensatz  und 
auch  y  und  z  sitzen  an  der  richti¬ 
gen  Stelle.  Das  gilt  auch  für  den 
Textomat.  Vizawrite  setzt  y  und  z 
so,  wie  sie  auf  der  C  64  -  Tastatur 
zu  sehen  sind.  Blind  schreiben 
ist  also  bei  allen  Programmen 
ohne  Probleme  möglich. 

RENEW  mit  einem  POKE? 

Mit  dem  POKE  2050,10  be¬ 
komm  t  man  Programme,  die  mi t 
SYS  64738,  mit  Reset  oder  mit 
NEW  gelöscht  wurden,  wieder! 
Nach  der  Eingabe  einer  nicht 
belegten  Programmzeile  und 
(RETURN)  ist  das  Programm 
wieder  da.  Oliver  Becker 


Schön  wär’s  ja,  aber  leider 
nicht  ganz  richtig.  Zwar  kann 
man  das  Programm  mit  diesem 
POKE  wieder  sichtbar  machen, 
doch  lauffähig  ist  es  nicht  mehr. 
Sobald  in  dem  Programm  eine 
Variable  definiert  wird,  hat  man 
nur  noch  Schrott  vor  sich.  Auch 
Speichern  nach  dem  »RENEW« 
hilft  nichts  mehr.  Der  POKE 
2050,10  setzt  nämlich  die  Pointer 
nicht  mehr  neu. 


Eingaben  von  der 
Tastatur  verhindern? 

Wie  verhindere  ich  Eingaben 
von  der  Tastatur  (insbesondere 
die  STOP  -  Taste)?  Kann  man  das 

mit  einem  POKE-Befehl  verhin¬ 
dern?  Klemens  Högenauer 

Eingaben  von  der  Tastatur 
verhindert  man  mit  POKE  649,0 
(in  Speicherstelle  649  ist  die  Grö¬ 
ße  des  Tastatur-Puffers  gespei¬ 
chert).  Die  RUN/STOP  und 
RESTORE-Taste  sperrt  man 
durch  POKE  808,227.  Die  Sperre 
wird  gelöst  durch  POKE 
649,10:POKE  808,237. 


VC  20 

zum  C  64  Umrüsten? 

Ich  möchte  meinen  VC  20  zum 
C  64  Umrüsten.  Geht  das?  Kann 
man  die  3584  Byte  für  die  Gra¬ 
fik  beim  VC  20  vergrößern? 

Stefan  Junghänel 
Der  VC  20  kann  nicht  in  dem 
Sinne  zum  C  64  umgerüstet  wer¬ 
den,  daß  anschließend  die 
C  64-Software  darauf  läuft  (es  sei 
denn,  man  baut  eine  komplette 
C  64-Platine  in  das  VC  20 -Ge¬ 
häuse  ein. 
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Roßmöller  Datentechnik,  Fin¬ 
kenweg  1,  5309  Meckenheim 
bietet  jedoch  eine  64  KByte- 
Karte  mit  einer  Speicherorgani¬ 
sation  wie  beim  C  64  an.  Das  be¬ 
deutet,  die  64  KBytes  RAM  lie¬ 
gen  »parallel«  zu  ROM-  und  I/O- 
Bereich,  so  daß  man  wie  beim  C 
64  das  Betriebssystem  ins  RAM 
kopieren  und  verändern  kann. 

Die  zweite  Frage  beruht  offen¬ 
bar  auf  einem  Mißverständnis. 
Die  3383  Bytes  sind  nicht  der 
Grafikspeicher,  sondern  der  ge¬ 
samte  RAM-Bereich  des  VC  20 
(lacht  da  jemand?),  und  der  läßt 
sich  natürlich  durch  Speicherer¬ 
weiterungen  vergrößern. 

Zeichensalat? 

Es  komm  t  sehr  oft  vor,  daß  ich 
nach  dem  Auflisten  eines  Pro¬ 
gramms  nur  noch  merkwürdige 
Zeichen  und  Zeilen  voller  unsin¬ 
niger  Basic-Befehle  sehe,  wie 
zum  Beispiel  »10  PRINTPRINT- 
SAVELISTCET ...«  etc.  Das  Gan¬ 
ze  wird  zudem  noch  in  vielen 
verschiedenen  Farben  ange¬ 
zeigt,  teilweise  auch  in  reverser 
Darstellung.  Ich  kann  diese  Zei¬ 
len  dann  auch  nicht  überschrei¬ 
ben.  Woran  liegt  das,  wie  be¬ 
komme  ich  das  weg  ? 

Dirk  Schepanek 

Der  beschriebene  Effekt  kann 
drei  verschiedene  Ursachen  ha¬ 
ben: 

1.  Sie  haben  ein  Maschinenpro¬ 
gramm  ohne  Basic-Vorspann  ge¬ 
laden  und  dabei  die  Sekundär¬ 
adresse  1  vergessen. 

2.  Sie  haben  ein  Basic- 
Programm,  das  den  unteren 
Basic-Bereich  Speicherplatz  für 
Grafik  benötigt,  einfach  gela¬ 
den,  ohne  mit  bestimmten 
POKE-Befehlen  den  Basic-Start 
hochzusetzen. 

3.  Sie  haben  durch  mehr  oder 
weniger  wildes  POKEn  in  von 
Basic  oder  Betriebssystem  be¬ 
nutzten  Speicherstellen  den 
Computer  völlig  irritiert. 

Es  gibt  nun  Gott  sei  Dank  ei¬ 
nen  bemerkenswert  einfachen 
Weg,  diesen  »Zeichensalat«  wie¬ 
der  zu  beseitigen:  Durch  Aus- 
und  Wiedereinschalten  des 
Computers. 

Nochmals 

Rechengenauigkeit 

In  Ausgabe  10/84  antwortete 
Rolf  Voigt  auf  die  Frage,  warum 

der  C  64  bei  »PRINT INT(3/0. 03)« 
nicht  100,  sondern  99  ausgibt. 
Leider  war  seine  Antwort  nicht 
ganz  richtig. 

Die  selbstgestrickte  Erklä¬ 
rung  von  Rolf  Voigt  für  die 
Integer-Funktion  (INT)  ist  zwar 
ganz  pfiffig,  aber  falsch.  Mathe- 
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matisch  gesehen  ist  die  INT- 
Funktion  eine  Abbildung  der 
Menge  der  reellen  Zahlen  auf 
die  Menge  der  ganzen  Zahlen, 
mit  der  Eigenschaft:  INT(x)  ist 
diejenige  ganze  Zahl,  die  klei¬ 
ner  oder  gleich  (!)  x  ist.  Anders 
ausgedrückt  schneidet  INT  ein¬ 
fach  alle  Nachkommastellen  ei¬ 
ner  Zahl  ab.  Und  genau  das 
macht  auch  der  C  64. 

Warum  erhält  man  dann  aber 
die  falsche  Antwort  »INT(3/0.03) 
=  99«?  Dazu  muß  ich  etwas  aus- 
holen.  Testen  Sie  mal  das  folgen¬ 
de  Programm: 

10  K  =  0  :  FOR  I  =  0  TO  2  STEP  0.1 
20  IF  I  =  1  THEN  PRINT  ”1  =  1  GE¬ 
FUNDEN  !"  :  K  =  1 
30  NEXT 

140  IF  K  =  0  THEN  PRINT  ”1  =  1 
NICHT  GEFUNDEN  !" 

50  END 

Wenn  Sie  keinen  Tippfehler 
gemacht  haben  und  keine  Son¬ 
derversion  des  C  64  besitzen,  er¬ 
halten  Sie  als  Ausgabe  »1  =  1 
NICHT  GEFUNDEN!«.  Erstaun¬ 
lich!  Wie  kann  so  etwas  sein? 
Wenn  man  von  Null  bis  Zwei  in 
Zehnteln  zählt,  erreicht  man 
doch  ganz  sicher  auch  die  Eins. 
Nun,  der  C  64  scheinbar  nicht. 
Er  stellt  nämlich  intern  alle  Zah¬ 
len  binär  dar,  also  auch  solche 
kleiner  als  Eins.  Fatalerweise  ist 
es  nun  so,  daß  dezimal  endliche 
Brüche  in  Binärschreibweise 
häufig  nur  als  nicht  abbrechen¬ 
de,  periodische  Zahlen  ge¬ 
schrieben  werden  können.  Das 
ist  speziell  bei  0.1  und  auch  bei 
0.03  der  Fall.  Also  wird  die  inter¬ 
ne  Binärdarstellung  dieser  Zah¬ 
len  im  Computer  nach  einer  ge¬ 
wissen  Stellenzahl  abgebro¬ 
chen  (gerundet).  Darum  gibt  der 
Ausdruck  »3/0.03«  beim  Compu¬ 
ter  nicht  ganz  exakt  100,  sondern 
etwas  weniger. 

Die  Differenz  können  Sie  sich 
mit  »PRINT  100  -  3/0.03«  selbst 
anschauen. 

Wendet  man  nun  die  INT- 
Funktion  auf  eine  Zahl  an,  die  et¬ 
was  klemer  ist  als  100,  dann  kann 
nur  99  dabei  herauskommen. 

Das  auf  den  ersten  Blick  merk¬ 
würdige  Ergebnis  »INT(3/0.01) 
=  99«  ist  also  nicht,  wie  Herr 
Voigt  meint,  auf  die  INT-Funktion 
zurückzuführen  (diese  arbeitet 
völlig  einwandfrei),  sondern  ist 
eine  Folge  der  internen  Binär¬ 
darstellung  von  Dezimalzahlen 
im  C  64.  i 

Aus  diesem  Grunde  ist  bei 
»IF...THEN«  Abfragen  auch  Vor¬ 
sicht  geboten.  So  manches 
selbstgeschriebene  Programm 
arbeit  in  manchen  Situationen 
scheinbar  nicht  korrekt,  weil 
einfach  nicht  an  die  nur  be¬ 
grenzte  Rechengenauigkeit  ei¬ 
nes  Computers  gedacht  wurde. 

Jürgen  Busch 


Monitor-Anschluß 

Frage:  Wie  schließe  ich  diver¬ 
se  Monitore  an  den  C  64  oder 
VC  20  an? 

Ausgabe:  8/84 

erschiedene  Fragesteller) 

Einen  Schwarz-Grün  Monitor 
schließt  man  an,  indem  man  aus 
dem  Video-Port  des  C  64  die 
Drähte  »GND»  und  »VIDEO 
HIGH»  mit  den  entsprechenden 
Monitoreingängen  verbindet. 
Dabei  muß  »GND»  am  Monitor- 
Stecker  außen  liegen. 

Einen  RGB-Monitor  anzu¬ 
schließen  ist  nicht  oder  nur  mit 
erheblichem  Aufwand  möglich. 
Mir  ist  kein  Konverter  bekannt; 
ein  solcher  würde  im  Selbstbau 
aber  mindestens  400  Mark  ko¬ 
sten. 

Andreas  Roeschies 


Welche  Disketten  haben  das 
günstigste  Preis-/ Leistungsver¬ 
hältnis?  Kann  man  Sprites  dre¬ 
hen?  Wo  gibt  es  die  billigste 
Hard-/Software?  Kann  man  mit 
dem  Heimcomputer  Geld  ver¬ 
dienen? 

Ausgabe:  10/84 

Hendrik  Richter 

1.  Der  Preis  eines  Zehner¬ 
packs  Disketten  mittlerer  Preis¬ 
lage  liegt  zwischen  55  bis  68 
Mark.  Dazu  wäre  noch  zu  erwäh¬ 
nen,  daß  ein  Diskettenpack  für 
48,50  Mark  genauso  gut  sein 
kann  wie  einer  zu  69,80  Mark. 
Achten  Sie  unbedingt  auf  eine 
Lochverstärkung,  die  eine  Ab¬ 
nutzung  der  Innenseite  fast  völ¬ 


lig  ausschließt.  Auch  auf  solche 
Kleinigkeiten  wie  eine  ausrei¬ 
chende  Anzahl  beschriftbarer 
Etiketten  sollte  man  achten.  Es 
ist  sehr  unangenehm,  wenn  man 
seine  Disketten  einmal  neu  be¬ 
schriften  will,  dazu  aber  keine 
Möglichkeit,  sprich  Etiketten, 
mehr  hat.  Normalerweise  gehö¬ 
ren  in  einen  Zehnerpack  minde¬ 
stens  15  bis  20  Etiketten. 

Kommen  wir  nun  zur  Qualität. 
Es  gibt  mehrere,  für  den  Laien 
unerklärliche  Abkürzungen  auf 
der  Diskettenverpackung.  Da 
findet  man  SD/SS,  DD/SS  oder 
auch  DS/DD.  Die  Standarddisk 
ist  wohl  SS/DD,  also  »Single  Si- 
ded,  Double  Density«,  was  soviel 
heißt  wie  »einseitig  geprüft,  dop¬ 
pelte  Aufzeichnungsdichte«. 

2.  Die  Sprites  des  C  64  kann 
man  nicht  drehen.  Man  kann  al¬ 
lerdings  mehrere  Sprites  ent¬ 
werfen,  die  jeweüs  im  Muster  et¬ 
was  gedreht  sind,  und  diese 
dann  in  einer  geeigneten  Rei¬ 
henfolge  hintereinander  auf  den 
Bildschirm  bringen. 

3.  Hier  kann  man  Herrn  Rich¬ 
ter  nur  empfehlen,  einmal  einen 
Blick  in  den  Anzeigenteil  des 
64'er-Magazins  zu  werfen. 

4.  Natürlich  kann  man  mit  dem 
Heimcomputer  Geld  verdienen. 
Zum  Beispiel  kann  man  sein  Wis¬ 
sen  in  Worte  kleiden  und  als  Ma¬ 
nuskript  an  Zeitschriften  sen¬ 
den,  die  das  dann  gerne  ab- 
drucken. 

Oder  wie  wär’s  mit  einem  klei¬ 
nen  Programm?  So  mancher 
Top-Programmierer  hat  be¬ 
stimmt  mit  einem  Heimcomputer 
angefangen,  seine  ersten  Ideen 
zu  verwirklichen. 

Marco  Kelting 


Geldfrage 
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Horizontales  Scrolling 

Wie  kann  man  beim  C  64  ein 
h  orizon  tales  Soft-Scrollin  g  reali¬ 
sieren? 

Ausgabe:  10/84 

Christoph  Bergmann 

Sowohl  horizontales  als  auch 
vertikales  Scrolling  ist  punktwei¬ 
se  möglich.  Hier  eine  Überset¬ 
zung  aus  dem  »Commodorc  64 
reference  guide«: 

»Der  VIC-II-Chip  unterstützt 
weiches  Scrolling  sowohl  in  hori¬ 
zontaler  als  auch  in  vertikaler 
Richtung.  Weiches  Scrolling  ist 
eine  punktweise  Bewegung  des 
gesamten  Bildschirms.  Es  kann 
aufwärts,  abwärts,  nach  links 
oder  nach  rechts  gehen.  Es  wird 
verwendet,  um  neue  Daten 
weich  auf  den  Bildschirm  zu 
bringen,  während  auf  der  ande¬ 
ren  Seite  Zeichen  weich  das  Bild 
verlassen. 

Während  der  VIC-II-Chip  den 
größten  Teil  der  Arbeit  macht, 
müssen  Sie  das  eigentliche 
Scrolling  mit  Hilfe  eines  Maschi¬ 
nenprogramms  erzeugen.  Der 
VIC-II-Chip  hat  die  Fähigkeit, 
das  Videobild  in  acht  verschie¬ 
dene  horizontale  und  acht  ver¬ 
schiedene  vertikale  Richtungen 
zu  bringen.  Diese  Positionierung 
wird  von  den  VIC-II-Scrolling- 
Registem  überwacht.  Der  VIC- 
II-Chip  hat  auch  einen  38-Zei- 
chen-  und  einen  24-Zeilen- 
Modus.  Der  kleinere  Bildschirm 
wird  dazu  verwendet,  um  Ihnen 
Platz  zur  Verfügung  zu  stellen, 
die  neuen  Zeilen  zum  Hereinrol¬ 
len  außerhalb  des  sichtbaren 
Bildschirms  zu  speichern.  Die 
Vorgehensweise  im  einzelnen: 

1.  Bildschirm  verkleinern  (der 
Rand  wird  breiter). 

2.  Das  Scrolling-Register  auf  Ma¬ 
ximum  oder  Minimum  einstel¬ 
len,  je  nach  Richtung. 

3.  Die  neuen  Zeichen  in  den 
nicht  sichtbaren  Bildschirmbe- 
reich  schreiben. 

4.  Das  Scrolling-Register  vergrö¬ 
ßern  oder  verkleinern,  bis  zum 
anderen  extremen  Wert. 


5.  Verwenden  Sie  an  diesem 
Punkt  eine  Maschinenroutine, 
um  den  gesamten  Bildschirmin- 
halt,  um  ein  Zeichen  in  die 
Scrollrichtung  zu  verschieben. 

6.  Weiter  mit  Schritt  2. 

Für  nähere  Einzelheiten  soll¬ 
ten  Sie  sich  Literatur  über  den 
VIC-II-Chip  beschaffen.  Wenn 
Sie  kein  versierter  Programmie¬ 
rer  mit  Maschinenspra¬ 
che-Kenntnissen  sind,  sollten  Sie 
allerdings  die  Finger  vom  Scrol¬ 
ling  lassen.  Holger  Jakobs 

Schwierigkeiten 
mit  Softwareschutz? 

Wieso  ist  das  Programm  auf 
einer  geschützten  Diskette 
nach  einem  »Backup»  nicht  lau f- 
fähig  ?  Caronni  Germano 

Weil  der  Software-Hersteller 
durch  den  Kopierschutz  gerade 
den  »Backup«  verhindern  will. 
Zu  diesem  Zweck  sind  meist 
gleich  mehrere  Sicherungen 
eingebaut.  Um  es  mit  den 
Software-Herstellern  nicht  zu 
verderben,  wollen  wir  Ihnen 
aber  lieber  nicht  verraten,  wie 
das  im  einzelnen  funktioniert. 


Wo  gibt's  den 
»Super  Expander«? 

Ich  habe  mir  das  Buch  »Grafik 
mit  dem  VC  20«  aus  dem  Markt 
&  Technik  Verlag  gekauft.  Dazu 
benötigt  man  aber  eine  Befehls¬ 
erweiterung  (Super  Expander). 
Woher  kann  ich  die  bekom¬ 
men?  Michael  Schmitt 

Die  Grafikerweiterung  VC 
1211  A  (auch  als  »Super  Expan¬ 
der«  bekannt)  sollte  bei  jedem 
Commodore-Händler  erhältlich 
sein. 


Probleme  mit  Datasette 

Ich  habe  andauernd  »LOAD 
ERROR«  bei  meiner  Datasette. 
Ausgabe:  9/84  Peter  Ritter 

Bei  Problemen  mit  Datasette 
hilft  es  oft,  den  Tbnkopf  mit  Spiri¬ 
tus  zu  putzen  (Wattestäbchen 
verwenden).  Außerdem  sollte 
man  keine  Chromdioxid- 
Kassetten  verwenden.  Auch  die 
Justierung  des  Tönkopfes  mittels 
der  dafür  gedachten  Schraube 
bringt  manchmal  Erfolg. 

Klaus  Köhler 


Testprogramm  für  C  64 

Gibt  es  ein  Testprogramm  für 
den  C  64? 

Ausgabe:  10/84 

Peter  Strempel 

Die  amerikanische  Firma  M-W 
Dist.  Inc.,  1342B  Route  23  Butler 
NJ07405  vertreibt  das  Programm 
»Mr  Tester«. 

Überprüft  werden:  Joystick, 
Speicher,  SID,  Bildschirmposi¬ 
tion  und  -Farbe,  Tastatur,  Kasset¬ 
te  (lesen/schreiben),  Disk  (Spur 
und  Sektor  lesen/schreiben), 
Diskettenformat  und  Drucker. 
Der  Preis  beträgt  29,95  Dollar. 

David  Twigg-Flesner 


Reset-Schalter  zerstört 
Computer? 

Ich  wollte  einen  Reset-Schal¬ 
terin  meinen  C  64  einbauen  las¬ 
sen.  Mein  Händler  sagt  aber 
nein  dazu.  Frage:  Stimmt  es, 
daß  nach  einem  Reset  durch 
Kurzschluß  einige  Bausteine  im 
Computer  zerstört  werden  kön¬ 
nen?  Lothar  Birkenstock 

Sie  sind  einem  Ammenmär¬ 
chen  aufgesessen.  Ein  ord¬ 
nungsgemäß  eingebauter  Re¬ 
set-Schalter  kann  nichts  zerstö¬ 
ren.  Der  Netzschalter  Ihres 
Computers  ist  beispielsweise 
ebenfalls  mit  der  RESET-Leitung 
des  Prozessors  verbunden,  und 
niemand  würde  auf  die  Idee 
kommen  zu  behaupten,  das  Ein¬ 
schalten  eines  Computers  könn¬ 
te  diesen  zerstören. 


Geht  TIS  falsch? 

Die  eingebaute  Uhr  (TI$)  ver¬ 
liert  die  richtige  Zeit,  wenn  Da¬ 
ten  oder  Programme  a  uf  Kasset¬ 
te  gespeichert  werden.  Nach 
Beendigung  eines  Abspeicher¬ 
vorganges  hat  die  Uhr  einen 
Sprung  nach  vorne  getan,  der 
jedoch  leider  keinerlei  Bezie¬ 
hung  zur  tatsächlich  vergange¬ 
nen  Zeit  hat.  Das  ist  bei  meinem 
Programm-Thermometer  mit 
stündlichem  Abspeichern  der 
Temperatur  auf  Kassette  sehr 
störend.  Rolf  Tulewski 

Sowohl  die  interne  Uhr  (TIS) 
als  auch  die  Kassettenoperatio¬ 
nen  werden  bei  VC  20  und  C  64 
über  Interrupt  gesteuert.  Da  es 
beim  Laden  und  Speichern  von 
Programmen  und  Daten  auf  ho¬ 
he  zeitliche  Genauigkeit  an¬ 
kommt.  wird  die  interne  Uhr  für 
die  Dauer  dieser  Operationen 
einfach  abgeschaltet.  Nach 
Beendigung  der  Kassettenope¬ 
ration  kann  TI$  daher  einen 
nicht  definierten  Wert  besitzen. 
Leider  gibt  es  keine  Möglich¬ 
keit,  dies  zu  umgehen,  es  sei 
denn,  man  verwendet  einen  ex¬ 
ternen  Zeitgeber. 

Raubkopien  testen? 

Testen  Sie  doch  mal  Spiele, 
die  noch  nicht  bei  80%  aller  Be¬ 
sitzer  seit  Wochen  als  Raubko¬ 
pie  vorliegen.  Willi  Brechtei 

Sie  werden  lachen,  aber  es  ist 
oft  so,  daß  Raubkopierer  viele 
Spiele  Wochen  vor  dem  offiziel¬ 
len  Vertriebsbeginn  bekom¬ 
men.  Sie  werden  verstehen,  daß 
wir  nicht  gerne  Spieletests  von 
Raubkopien  veröffentlichen.  Es 
kommt  nämlich  manchmal  vor. 
daß  diese  Kopien  besser  sind 
als  die  Originale  und  das  könnte 
peinlich  werden  —  nicht  nur  für 
uns. 


Simons  Basic  und 
Turbotape 

Kann  man  Turbotape  und  Si¬ 
mons  Basic  zusammen  benut¬ 
zen? 

Ausgabe:  8/84  Rolf  Lehr 

Leider  kann  Turbotape  nicht 
mit  Simons  Basic  laufen.  Diese 
Funktion  wird  durch  zwei  Dinge 
verhindert:  Erstens  liegt  Turbo¬ 
tape  im  Speicherbereich 
$C000-$CFFF,  welcher  auch  von 
Simons  Basic  verwendet  wird, 
und  zweitens  verbiegen  beide 
Utilities  die  CHRGET-Routine  im 
RAM,  um  die  von  beiden  Erwei¬ 
terungen  zur  Verfügung  gestell¬ 
ten  neuen  Befehle  decodieren 
zu  können.  Marc  Haber 


□tote™  langsam? 

Die  an  meinen  C  64  ange¬ 
schlossene  Typenrad-Schreib¬ 
maschine  »Privileg  3000«,  be¬ 
trieben  mit  Textomat  von  Data 
Becker  ist  mir  viel  zu  langsam. 
Wer  kann  helfen?  Und  wie? 

Jürgen  Heesch 
Typenraddrucker  smd  leider 
nun  einmal  um  einiges  langsa¬ 
mer  als  Matrix-  oder  Tinten¬ 
strahl-Drucker.  Dieser  Mangel 
ist  Konstruktionsbedingt  und 
läßt  sich  softwaremäßig  nicht 
beheben.  Es  ist  ähnlich  wie  mit 
den  Autos  der  18-PS-Klasse  — 
sie  sind  einfach  von  Natur  aus 
langsam.  Die  einzige  Abhilfe  be¬ 
steht  in  der  Anschaffung  eines 
schnelleren  Modells. 


Piraten,  Piraten 

Bezugnehmend  auf  die  Ko¬ 
lumne  »Piraten,  Piraten«  in 
der  Ausgabe  8/84  kann  ich 
Ihnen  bestätigen,  daß  die 
Firma  »R  &  S  Computerorga¬ 
nisation«  eine  Schwindelfir¬ 
ma  ist.  Unter  dem  Aktenzei¬ 
chen  —  52  Js  1025/84  —  hat 
die  Staatsanwaltschaft  beim 
Landgericht  Berlin  dies  noch 
einmal  ausdrücklich  bestä¬ 
tigt.  Man  sollte  aber  auf  je¬ 
den  Fall  die  Leser  daraufhin¬ 
weisen,  daß  der  Handel  mit 
Raubkopien  strafrechtlich 
relevant  ist  und  zu  hohen  zi¬ 
vilrechtlichen  Schadener¬ 


satzansprüchen  führen  kann. 
Keinesfalls  sollte  man  aber 
ohne  weiteres  Unterlas¬ 
sungserklärungen  unter¬ 
schreiben,  bevor  man  hin¬ 
sichtlich  des  rechtlichen 
Sachverhaltens  Klarheit  hat. 
Einige  Firmen  scheinen  tat¬ 
sächlich  darauf  spezialisiert 
zu  sein,  mit  überhöhten  Scha¬ 
densersatzansprüchen  die 
Leute  so  einzuschüchtem, 
daß  diese  nachher  freiwillig 
einen  zwar  geringeren,  aber 
eigentlich  nicht  notwendigen 
Betrag  zahlen. 

Dr.  H.  G.  Baare-Schmidt, 
Rechtsanwalt 
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Der  PET-Emulator 
der  Demodiskette 

Was  hat  es  mit  dem  Programm 
»PET-Emulator«  auf  der  Demo- 
Diskette  auf  sich? 

Ausgabe  10/84 

Wolfgang  Joachim 

Ohne  Frage  ist  die  Dokumen¬ 
tation  von  Commodore  auch  hier 
wieder  sehr  mies,  das  Pro¬ 
gramm  »Emulator«  läßt  sich  je¬ 
doch  trotzdem  sehr  gut  verwen¬ 
den.  Es  gibt  inzwischen  zwar 
schon  eine  große  Auswahl  an 
Programmen  für  den  C  64,  aber 
einige  Probleme  (zum  Beispiel 
mathematischer  Natur)  sind 
noch  nicht  umgesetzt  worden. 
Da  bietet  sich  doch  eine  Über¬ 
nahme  der  alten  CBM 
3032-Programme  an. 

Konstruktionsbedingt  unter¬ 
scheiden  sich  der  3032  und  der 
C  64  aber  stark  in  der  Speicher¬ 
belegung,  dem  Speicherplatz 
und  der  Zeropage.  Zum  Beispiel 
liegt  das  Video-RAM  des  3032 
im  Bereich  von  32768  bis  33792. 
Der  C  64  dagegen  hat  sein 
Video-RAM  ab  Adresse  1024  bis 
2023  und  benötigt  zusätzlich 
noch  die  Information  über  die 
Zeichenfarbe.  Der  3032  verfügt 
über  31  KByte  freies  RAM,  der  C 
64  dagegen  über  38  KByte. 

Um  nun  3032-Programme  di¬ 
rekt  und  ohne  Umschreiben  auf 
dem  C  64  laufen  zu  lassen, 
braucht  man  nur  den  Emulator 
von  der  Demo-Diskette  laden 
und  starten.  Danach  wird  das 
betreffende  3032-Programm  von 
Kassette  oder  Diskette  geladen 
und  ist  ohne  weiters  sofort  lauffä¬ 
hig.  Das  gilt  sowohl  für  Basic-  als 
auch  für  reine  Maschinenpro¬ 
gramme. 

Bei  einer  geringen  Anzahl  von 
Maschinenprogrammen  kann 
der  Emulator  aussteigen,  bei¬ 
spielsweise  wenn  auf  ROM- 
Routinen  zugegriffen  wird,  die 
der  Emulator  nicht  unterstützt. 
Da  hilft  nur  eines:  ausprobieren. 

Der  Emulator  enthält  übrigens 
einen  DOS-Manager,  der  dem 
DOS  5.1  der  Demo-Diskette  ent¬ 
spricht. 


Alles  in  allem  ist  der  Emulator 
eine  nützliche  Sache.  Er  vergrö¬ 
ßert  die  ohnehin  schon  bemer¬ 
kenswerte  Programmvielfalt  für 
den  C  64  noch  um  einiges. 

Stefan  Ullmann 


Wer  kennt  »Quicktext»? 

Im  64’er-Magazin,  Ausgabe 
6/84,  wurde  das  Listing  zum 
Textverarbeitungsprogramm 
»Quicktext«  abgedruckt.  Seit 
Erscheinen  dieses  Heftes  sitze 
ich  nun  daran.  Selbst  nach  der 
Berichtigung  im  »Druckfehler¬ 
teufelchen«  und  nach  wieder¬ 
holtem  Checken  des  Listings 
läuft  das  Programm  einfach 
nicht.  Wer  kann  helfen? 

Margie  Bastow 


Simons  Basic 
und  DOS  5.1 

Wie  kann  man  gleichzeitig 
mit  Simons  Basic  und  DOS  5. 1  ar¬ 
beiten? 

Ausgabe:  64/10/84 

Detlev  Preisler 

Beide  Programme  arbeiter}1- 
wie  folgt  zusammen: 

—  Simons  Basic  laden  und  star¬ 
ten. 

—  DOS  S.l  mit  "LOAD"  "DOS 
5.1", 8.1  laden  und  mit  SYS  52224 
starten. 

Es  geht  natürlich  auch  umge¬ 
kehrt,  kann  aber  dann  in  einigen 
Fällen  zu  Problemen  führen. 

Hier  nun  die  Abhilfen: 

—  Sind  beide  Programme  im 
Speicher,  dann  wird  das  DOS 
mit  SYS  52224  eingeschaltet. 

—  Werden  DOS-Befehle  nur  mit 
einem  müden  READY  beantwor¬ 
tet  (oder  überhaupt  nicht),  dann 
gibt  man "  #8"  ein.  Die  »8«  steht 
dabei  für  die  Geräteadresse  der 
Floppy. 

Es  gibt  aber  auch  eine  Simons 
Basic-Version  II  die  von  anfang 
an  problemlos  mit  dem  DOS  5.1 
läuft. 


C  64-Piatine 
und  Tastatur  kaufen 

Wo  kann  man  eine  C  64- 
Platine  kaufen? 

Ausgabe:  10/84  Eric  Kratzin 

Wo  kann  man  eine  C  64-Tastatur 
kaufen? 

Ausqabe:  10/84 

Oliver  Varoß 

Der  TKD  (Technische  Kunden¬ 
dienst)  von  Quelle  müßte  in  der 
Lage  sem,  die  gewünschten  Tei¬ 
le  zu  einem  vertretbaren  Preis  zu 
beschaffen.  In  Ihrem  Fall  schla¬ 
ge  ich  aber  vor,  Sie  tun  sich  zu¬ 
sammen  und  teilen  sich  ein  kom¬ 
plettes  Neugerät. 

Holger  Jacobs 


Wo  gibt’s  Comal? 

Ich  habe  mit  großem  Interes¬ 
se  den  ersten  Teil  Ihres  ausge¬ 
zeichneten  Comal-Kurses  gele¬ 
sen.  Leider  haben  Sie  nirgend¬ 
wo  geschrieben,  wo  man  Comal 
0.14  erhalten  kann  und  was  es 
kostet. 

Jürgen  Kruse 

Hier  sind  zwei  Bezugsadressen: 
Comal  User  Group 
Otkerstr.  34 
8000  München  90 

Comal  Gruppe  A.  Knapp 
Giersdorfer  Str.  10 
2800  Bremen  44 


Bei  beiden  Adressen  erhalten 
Sie  Comal  0.14  auf  Diskette  ein¬ 
schließlich  Kurzanleitung/Be- 
fehisübersicht  für  25  Mark  Vor¬ 


kasse  (Schern  oder  Scheck).  Für 
30  Mark  Vorkasse  erhalten  Sie 
zusätzlich  noch  das  Handbuch. 
Wenn  Sie  zunächst  nur  das 
Handbuch  haben  wollen,  kostet 
es  6  Mark.  Bitte  sehen  Sie  von 
Anfragen  bei  den  beiden  Co- 
mal-Gruppen  ab,  da  alle  anfal¬ 
lenden  Arbeiten  von  den  Mit¬ 
gliedern  in  ihrer  Freizeit  ausge¬ 
führt  werden  müssen. 

Programmunterbrechung 
bei  Druckerausgabe 

Bei  der  Druckerausgabe  er¬ 
halte  ich  oft  einen  »DEVICE 
NOT  PRESENT  ERROR«,  obwohl 
der  Drucker  eingeschaltet  ist. 
Ausgabe:  8/84 

Rudolf  Ott 

Dieser  Fehler  tritt  sehr  häufig 
bei  Druckern  auf,  die  über  den 
seriellen  Bus  des  C  64  ange¬ 
schlossen  werden.  Die  Ursache 
dafür  liegt  in  der  Konzeption  des 
seriellen  Busses.  Abhilfe:  Statt 
PRINT  #  mit  CMD  arbeiten, 
dann  tritt  der  Fehler  nur  noch  äu¬ 
ßerst  selten  oder  gar  nicht  mehr 
auf. 

Marc  Haber 

Wo  gibt’s 
EPROIVI-Brenner? 

Wo  kann  ich  den  im 
Hardware-Test  beschriebenen 
EPROM-Brenner  von  Roßmöller 
beziehen?  Jürg  Kauer 

Die  Bezugsadresse  ist  Roß¬ 
möller  Datentechnik,  Finken¬ 
weg  1,  5309  Meckenheim.  Es  wä¬ 
re  noch  daraufhinzuweisen,  daß 
Roßmöller  die  Preise  erhöht  hat 
und  außerdem  der  »Bausatz«  nur 
aus  einer  Platine  besteht. 


Wollen  Sie  antworten? 


Wir  veröffentlichen  auf 
dieser  Seite  auch  Fragen, 
die  sich  nicht  ohne  weiteres 
anhand  eines  gutes  Archivs 
oder  aufgrund  der  Sachkun¬ 
de  eines  Herstellers  bezie¬ 
hungsweise  Programmie¬ 
rersbeantworten  lassen.  Das 
ist  vor  allem  der  Fall,  wenn  es 
um  bestimmte  Erfahrungen' 
geht  oder  um  die  Suche  nach 
speziellen  Programmen  be¬ 


ziehungsweise  Produkten. 
Wenn  Sie  eine  Antwort  auf  ei¬ 
ne  hier  veröffentlichte  Frage 
wissen  —  oder  eine  andere, 
bessere  Antwort  als  die  hier 
gelesene  —  dann  schreiben 
Sie  uns  doch.  Die  Antworten 
werden  wir  in  einer  der 
nächsten  Ausgaben  publizie¬ 
ren.  Bei  Bedarf  stellen  wir 
auch  den  Kontakt  zwischen 
Lesern  her. 


Ausgabe  12/Dez«nber;,l^,. 

64er-onIine.net 


Hardware-Test 


U""  ber  technische  Daten  von  Moni¬ 
toren  wird  viel  diskutiert,  letzt¬ 
lich  entscheidend  über  den  Ge¬ 
brauchswert  eines  Monitors  ist  aber 
immer  die  Qalität  des  Bildes.  Diese 
ist  aber  von  mehr  als  nur  einigen 
Maßzahlen  abhängig.  Die  meisten 
der  in  bunten  Farbprospekten  ab¬ 
gedruckten  Daten  verunsichern 
eher  den  Käufer,  als  ihm  bei  einer 
Entscheidung  zu  helfen.  Oft  wird 
von  40  oder  80  darstellbaren  Zei¬ 
chen  pro  Zeile  gesprochen,  oder  mit 
Meßwerten  nur  so  um  sich  gewor¬ 
fen.  Dem  Interessenten  nutzt  das 
sehr  wenig. 

Als  wesentlichstes  Beurteilungs¬ 
kriterium  hat  sich  inzwischen  die  so¬ 
genannte  Bandbreite  (gemessen  in 


Megahertz)  eingebürgert.  Die  für  ei¬ 
ne  deutliche  Darstellung  notwendi¬ 
ge  Bandbreite  ist  im  wesentlichen 
davon  abhängig,  wieviele  Einzel¬ 
punkte  in  einer  Bildschirmzeile  ab¬ 
gebildet  werden.  Bei.  1  lommodore 
64  sind  das  730  Punkte  in  der  Hori¬ 
zontalen.  Die  minimale  Bandbreite 
für  diese  Punktdichte  beträgt  etwa  5 
bis  6  Megahertz  bezogen  auf  die  er¬ 
ste  Oberwelle.  Das  schafft  sogar  ein 
einfacher  SW-Femseher.  Deutlicher 
wird  die  Darstellung  allerdings  erst, 
wenn  eine  höhere  Bandbreite  zur 
Verfügung  steht.  Einfache  Monitore 
haben  etwa  zwischen  12  und  15,  mitt¬ 
lere  zwischen  15  und  20  und  gute 
Monitore  über  20  Megahertz  Band¬ 
breite.  Bei  einigen  Studiomonitoren 


wird  sogar  eine  Bandbreite  von 
über  40  Megahertz  benötigt.  We¬ 
sentlich  unsinniger  ist  die  Angabe 
»Zeichen  pro  Zeile«. 

Wer  sich  einen  Monitor  anschaf- 
fen  möchte,  sollte  sich  vorher  über¬ 
legen,  wofür  er  seinen  Computer 
hauptsächlich  verwenden  will.  Wer 
nur  gelegentlich  etwas  program¬ 
mieren,  beziehungsweise  spielen 
möchte,  ist  mit  einem  kleinen  Farb¬ 
fernseher  sicherlich  nicht  schlecht 
bedient,  zumal  em  Fernseher  ja 
auch  als  Zweitgerät  nützlich  ist.  Wer 
aber  höhere  Ansprüche  an  die  Bild¬ 
qualität  stellt,  steht  schnell  vor  der 
Frage,  monochromer  oder  Farbmo¬ 
nitor?  Für  den  Anwender,  der  selten 
mal  ein  Spiel-  oder  Grafikprogramm 


Bild  1.  Der  Cable  MC  3700 


Bild  2.  Der  Cable  besticht  mit  exzellenten  Farben 
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Bild  3.  Nicht  ohne  Probleme:  Der  Taxan  KX  12 


Bild  4.  Die  ausgezeichnete  Darstellung  von  80  Zeichen  mit  dem  Taxan.  Die 
Verzerrung  in  den  oberen  Zeilen  konnten  nicht  beseitigt  werden 


verwenden  möchte,  haben  wir  drei 
monochrome  Monitore  verschiede¬ 
ner  Qualitäts-  und  Preislagen  gete¬ 
stet.  Für  die  größte  Überraschung 
sorgte  aber  der  ebenfalls  getestete 
Farbmonitor  Cable  MC  3700.  Bei 
der  Beurteilung  der  verschiedenen 
Monitore  verwendeten  wir  zusätz¬ 
lich  die  80-Zeichenkarte  von  Decam. 


Mit  Tricks  zum  besseren 
Bild 


Im  Test  zeigte  sich,  daß  es  gar 
nicht  so  einfach  ist,  dem  Commodo- 
re  64  ein  klares  und  kontrastreiches 
Bild  zu  entlocken.  Zwar  bieten  der  C 
64  und  der  VC  20  auf  ihrer  Geräte¬ 
rückseite  einen  Videoanschluß  an. 
Das  dort  bereitgestellte  Video¬ 
mischsignal  (FBAS  =  Färb-,  Bild-, 
Austast-  und  Synchronsignal)  kann 
aber  hohen  Qualitätsansprüchen 
nicht  genügen.  Die  besten  Resultate 
lassen  sich  mit  dem  Weg  erzielen, 
den  Commodore  bei  seinen  1701/ 
1702-Monitoren  gegangen  ist.  Die 
zwei  für  das  Bild  zuständigen  Signa¬ 
le  Sync/Luminance  (Synchronisa¬ 
tion/  Helligkeit)  und  Chrommance 
(Farbart  und  Farbton)  werden  ex¬ 
tern  im  Monitor  gemischt.  Für  den 
Anschluß  eines  monochromen  Mo¬ 
nitors  ist  es  übrigens  besser,  nur  das 
Sync/Lum-Signalzu  verwenden,  die 
Darstellung  wird  dann  um  einiges 
deutlicher. 


Handbuch  mit  Fehlern 


Die  Abbildung  der  Video-Buchse 
im  Commodore  64  Handbuch  Seite 
142  bezieht  sich  auf  den  VC  20.  Beim 
Commodore  64  findet  eine  achtpoli- 


ge  DIN-Buchse  Verwendung.  Die 
Pinbelegungen  stimmen  aber  im 
wesentlichen  überein,  lediglich  der 
mittlere  Pin  (im  Handbuch  nicht  ab¬ 
gebildet)  trägt  das  Chrominance- 
Signal,  die  ebenfalls  unterschlage¬ 
nen  Pins  sieben  und  acht  sind  nicht 
angeschlossen.  Für  Besitzer  eines 
Farbmonitors,  wie  dem  Taxan  Vision 
EX  bleibt  zum  Anschluß  eines  Moni¬ 
tors  nur  das  Video-M:.?'"hsignal. 
Trickreicher  sind  die  Konstrukteure 
des  Cable  MC  3700  vorgegangen. 
Sie  entnehmen  dem  Commodore 
die  Signale  getrennt  und  mischen 
sie  erst  im  Monitor.  Das  Ergebnis  ist 
beeindruckend.  Das  Bild  zeichnet 
alle  Konturen  extrem  scharf  und  ver¬ 
trägt  selbst  stärkste  Farbunterschie- 
de.  Dabei  sind  die  Farben  sehr  kräf¬ 
tig  und  leuchtend.  Der  Cable  ver¬ 
fügt  nicht  nur  über  ein  exzellentes 
Bild,  sondern  auch  über  einen  guten 
Ton,  der  ebenso  wie  alle  anderen 
Einstellungen  an  der  Gehäusevor¬ 
derseite  geregelt  wird,  Ebenso  wie 
seine  Qualität,  fällt  auch  das  äußere 
Erscheinungsbild  des  Cable  sehr 
positiv  auf.  Der  Monitor  wird  kom¬ 
plett  mit  einem  beweglichen  S Land¬ 
fuß  geliefert,  der  wie  das  Gehäuse 
beige  farbig  ist.  Der  Cable  ist  ein  gu¬ 
tes  Beispiel  für  gelungenes  Design 
und  funktionelle  Leistung.  Lediglich 
der  auf  der  Gehäuserückseite  be¬ 
findliche  Netzschalter  ist  etwas 
schwer  zugänglich.  Die  größte 
Überraschung  erlebt  man  aber 
beim  Aufschrauben  des  Cable.  Nor¬ 
malerweise  sind  Produkte  einer  re¬ 
lativ  unbekannten  Firma  mit  Innerei¬ 
en  aus  dem  Lande  Nippons  ausge¬ 
stattet.  Nicht  so  der  Cable,  er  trägt 
auf  allen  seinen  Bauteilen  das 
Philips-Siegel.  Bleibt  die  Frage,  wa¬ 
rum  nicht  gleich  unter  diesem  Na¬ 


men?  Fürchtet  Philips  etwa  die  eige¬ 
ne  Konkurrenz?  Trotzdem  ist  der 
Cable  ein  sehr  gutes  Gerät,  das  als 
Farbmonitor  sogar  für  eine  erträgli¬ 
che  Darstellung  von  80  Zeichen  pro 
Zeile  geeignet  ist.  Hierzu  muß  aller¬ 
dings  ein  neues  Kabel  gelötet  wer¬ 
den,  denn  die  Decamp-Karte  bietet 
ein  BAS-Signal  (monochrom)  auf  ei¬ 
nem  Chinchstecker  an.  Wer  mit  dem 
Cable  ohne  Farbe  arbeiten  will,  fin¬ 
det  auf  der  Rückseite  des  Gehäuses 
übrigens  einen  kleinen  Schalter, 
der  das  Chrominance-Signal  ab¬ 
schaltet.  Schneller  geht  das  aller¬ 
dings  mit  dem  Farbsättigungsreg¬ 
ler. 


Es  muß  nicht  immer 
Farbe  sein 


Die  drei  zum  Test  zur  Verfügung 
stehenden  monochromen  Monitore 
waren  alle  mit  einer  grünen  Anzeige 
ausgestattet.  Damit  erschöpften  sich 
aber  schon  weitgehend  die  Ge¬ 
meinsamkeiten,  denn  es  gab  erheb¬ 
liche  Qualilätsunterschiede.  Das  er¬ 
ste  Gerät  war  der  Taxan  KX  12  (Bild 
3),  der  über  eine  Bandbreite  von  20 
Megahertz  verfügt.  Er  wird  mit  grü¬ 
ner  und  bernsteinfarbener  Farbträ¬ 
gerschicht  sowohl  für  den  deut¬ 
schen,  als  auch  für  den  amerikani¬ 
schen  Markt  gebaut.  Hierin  liegt  be¬ 
reits  sein  größter  Nachteil.  Der  von 
jedem  Monitor  benötigte  Rasterfre¬ 
quenzwert  steht  technisch  bedingt 
in  engem  Zusammenhang  mit  der 
Frequenz  des  jeweiligen  Stromnet¬ 
zes  (Deutschland  50  Hz,  USA  60  Hz). 
Viele  Umbau-  und  Anschlußschwie¬ 
rigkeiten  rühren  von  diesem  Um¬ 
stand  her.  In  der  Regel  ist  es  mit  ei- 
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nem  Austausch  des  Trafos  im  Netz¬ 
teil  nicht  getan.  Viele  frequenzbe¬ 
stimmende  Teile  sind  auf  die  60 
Hertz  abgestimmt  und  funktionieren 
mit  der  Frequenz  in  Europa  nicht 
mehr  richtig.  Das  Ergebnis  sind  häu¬ 
fig  Zittereffekte.  Beim  Taxan  KX  12 
treten  diese  Effekte  kaum  auf,  dafür 
hat  dieser  Monitor  bei  einem  sonst 
guten  Bild  eindeutig  Schwierigkei¬ 
ten,  verzerrungsfrei  zu  bleiben. 


kaum,  wohl  aber  in  ihren  Leistungs¬ 
merkmalen.  Der  Hersteller  beider 
Monitore  ist  BMC.  Der  BM  12  ES  für 
etwa  400  Mark  (Bild  5)  ist  sowohl  in 
grün,  als  auch  m  bernstein  erhält¬ 
lich.  Seine  Bandbreite  wird  mit  18 
Megahertz  angegeben,  Die  eigentli¬ 
che  Besonderheit  dieses  Monitors 
ist  aber  seine  Filterscheibe.  Direkt 
auf  der  Bildröhre  wurde  eine  syn¬ 
thetische  Folie  aufgebracht,  die  für 


ist,  gefiel  der  BM  12  EN  ein  wenig 
besser.  Mit  einem  Preis  von  425 
Mark  ist  er  allerdings  auch  einer 
der  teuersten  getesteten  Geräte.  Für 
den  BM  12  EN  wird  eine  Bandbreite 
von  über  20  Megahertz  angegeben. 
Das  Bild  ist  sehr  deutlich  und  abso¬ 
lut  ruhig.  Auch  beim  Einsatz  der 
80-Zeichenkarte  wartete  der  BM  12 
EN  mit  dem  besten  Ergebnis  auf 
(Bild  8).  Alle  Zeichen  waren  gesto- 


Bild  5.  Auch  optisch  ansprechend  —  der  BMC  BM  12  ES 
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Bild  6.  Ein  gutes  Beispiel  für  eine  80-Zeichen-Darstellung.  Die  leichte 
Krümmung  der  Zeilen  ist  auf  die  Bildschirmwölbung  zurückzuführen. 


Das  erste  getestete  Gerät  wies  so 
starke  Verzerrungen  an  den  Rän¬ 
dern  auf,  daß  eigentlich  nur  ein 
Transportschaden  vorliegen  konnte. 
Als  aber,  in  etwas  verminderter 
Form,  das  gleiche  Problem  auch 
beim  zweiten  Gerät  auftrat,  mußte 
auf  einen  Konstruktionsfehler  ge¬ 
schlossen  werden.  Ganz  besonders 
kraß  fiel  dieser  Effekt  bei  Verwen¬ 
dung  der  Decam-Karte  auf.  Die  Rän¬ 
der  verzerrten  so  stark,  daß  ein  or¬ 
dentliches  Arbeiten  kaum  noch 
möglich  war  (Bild  4).  Selbst  die  auf 
der  Geräterückseite  befindlichen, 
umfangreichen  Einstellpotentiome¬ 
ter  konnten  nicht  helfen.  Obwohl  mit 
einer  hervorragenden  Bandbreite 
von  20  Megahertz  ausgestattet,  hielt 
der  zirka  400  Mark  teure  Taxan  dem 
Test  mit  seinen  Konkurrenten  nicht 
stand.  Auch  wenn  die  eigentliche 
Zeichendarstellung  gut  war. 

Die  beiden  anderen  monochro¬ 
men  Testkandidaten  sind  eigentlich 
sehr  nahe  Verwandte,  denn  rein  äu¬ 
ßerlich  unterscheiden  sie  sich 
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ein  blend-  und  reflexarmes  Bild  sor¬ 
gen  soll.  Tatsächlich  werden  alle 
einfallenden  Lichtquellen  etwas  dif¬ 
fuser,  was  bei  längerem  Arbeiten  in 
stark  erhellten  Räumen  als  ange¬ 
nehmempfunden  wird.  Die  Bildqua¬ 
lität  des  BMC  BM  12  ES  ist  durchaus 
gelungen  und  die  Ränder  werden 
verzerrungsfrei  abgebildet.  Beim 
Einsatz  der  Decam-Karte  waren  die 
dargestellten  Zeichen  sehr  gut  les¬ 
bar  und  zeigten  an  den  Zeichenrän¬ 
dern  keinerlei  Fädeout-Effekte  (Bild 
6).  Auch  im  Dauereinsatz  von  mehre¬ 
ren  Tagen  wurde  keine  Verschlech¬ 
terung  der  Bildqualität  festgestellt. 


Hervorragende  Bild¬ 
qualitäten 

Obwohl  zwischen  zwei  so  guten 
Monitoren  wie  dem  BM  12  ES  und 
dem  BM  12  EN  (Bild  7)  bei  der  Beur¬ 
teilung  der  Bildqualität  immer  ein 
gewisser  Anteil  Subjektivität  dabei 


chen  scharf,  so  daß  der  Eindruck 
entstehen  konnte,  daß  der  Commo- 
dore  64  nie  für  weniger  als  80  Zei¬ 
chen  pro  Zeile  konzipiert  wurde. 
Auch  beim  BM  12  EN  ist  die  Bildröh¬ 
re  entspiegelt,  allerdings  nicht 
durch  eine  Folie,  sondern  durch 
leichtes  Anätzen  der  Oberfläche. 
Das  Resultat  fiel  allerdings  nicht  so 
überzeugend  wie  beim  ES-Modell 
aus. 


Kein  eindeutiger  Sieger 


Ist  die  Entscheidung  zwischen  ei 
nem  farbigen-  und  einem  mono¬ 
chromen  Monitor  erst  einmal  gefal¬ 
len,  so  sind  bis  auf  den  Taxan  Moni¬ 
tor  alle  getesteten  Geräte  durchaus 
empfehlenswert.  Mit  einem  Preis 
von  etwa  800  Mark  zuzüglich  18 
Mark  für  das  Verbindungskabel  ist 
der  Cable  MC  3700,  der  auch  in  ei¬ 
ner  RGB-Version  geliefert  wird,  zwar 
nicht  gerade  billig,  bietet  aber  von 
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allen  bisher  getesteten  Farbmonito¬ 
ren  das  beste  Bild. 

Ein  monochromer  Monitor  sollte  in 
der  Regel  dann  eingesetzt  werden, 
wenn  auch  eine  80-Zeichenkarte 
vorhanden  ist,  dabei  ist  es  wichtig, 
daß  die  Zusammenarbeit  mit  einer 
solchen  Karte  problemlos  funktio¬ 
niert.  Die  beiden  BMC-Monitore 
bieten  hierfür  die  besten  Vorausset¬ 
zungen.  Wer  sich  allerdings  für  alle 
späteren  Anwendungen  gerüstet 
wissen  will,  sollte  die  25  Mark  Mehr¬ 
kosten  aufbringen  und  sich  gleich 
das  bessere  EN-Modell  zulegen. 


Die  80-Zeichen-Karte 


Gute  Dienste  während  des  ge¬ 
samten  Tests  leistete  die  80-Zeichen- 
karte  der  Firma  Decam.  Wie  schon 
im  Monitortest  angesprochen,  sorgt 
sie  für  ein  exzellentes  Schriftbild  in 
einer  5x8-Zeichenmatrix.  Die  De- 
cam-Karte  liefert  zu  einem  Preis  von 
285  Mark  aber  nicht  nur  die  notwen¬ 
dige  Zeichenumdefinierung,  son¬ 
dern  hat  auch  noch  einige  andere 
nützliche  Funktionen.  So  wurden 
beispielsweise  einige  der  Sonder¬ 
befehle  des  CBM  8032  implemen¬ 
tiert.  Alle  Sonderbefehle  werden 
über  CTRL  in  Verbindung  mit  einer 
anderen  Taste  ein-  beziehungswei¬ 
se  ausgeschaltet.  Mit  CTRL  L  und 
CTRL  N  wird  beispielsweise  zwi¬ 
schen  dem  Grafikmodus  (sonst 
CBM  +  SHIFT)  und  dem  Textmodus 
umgeschaltet. 

Wesentlich  interessanter  ist  aber 
die  Fensterdefinition.  Die  Größe  des 


Fensters  wird  durch  die  Position  des 
Cursors  bestimmt.  Ist  ein  solches 
Fenster  definiert,  wirken  sämtliche 
Befehle  nur  noch  auf  dieses  Fenster. 
Erst  durch  zweimaliges  Drücken 
der  HOME-Taste  wird  die  ursprüng¬ 
liche  Bildschirmgröße  wieder  her¬ 
gestellt.  Weitere  Funktionen  sind 
das  zeilenweise  Herauf-  und  Herab¬ 
blättern  des  Bildschirms  sowie  das 
Zeichen-  und  zeilenweise  Löschen 
und  Einfügen. 

Wesentliches  Kriterium  für  die  Be¬ 
wertung  einer  80-Zeichenkarte  ist 
ihr  Grad  der  Kompatibilität.  Bei  der 
Decam-Karte  ist  der  gesamte  Basic- 
Speicher  für  den  Anwender  freige¬ 
blieben.  Das  bedeutet,  daß  alle  Pro¬ 
gramme,  die  keine  wesentlichen 
Veränderungen  außerhalb  des  Ba- 
sic-Speichers  vornehmen,  weiterhin 
verwendet  werden  können.  Richtig 
interessant  wird  es  bei  der  Frage, 
wie  verschiedene  Basic-Erweite- 
rungen  mit  der  Karte  Zusammenar¬ 
beiten.  Die  Bedienungsanleitung 
zur  Decam-Karte  gibt  hier  einige  Hil¬ 
fen.  Möchte  man  beispielsweise  Ex- 
basic  Level  II  mit  der  Karte  verwen¬ 
den,  wird  empfohlen:  1.  Das  Pro¬ 
gramm  zu  laden.  2.  zu  starten  und  3. 
den  Befehl  SYS  49263  zu  geben.  Zu¬ 
sammen  mit  einem  Evnansions- 
stecker  und  dem  Modul  'funktioniert 
die  beschriebene  Methode  aber 
nicht. 

Wesentlich  besser  gestaltet  sich 
das  Zusammenspiel  mit  der  CP/M- 
Karte.  Nach  dem  Laden  eines  klei¬ 
nen  Zusatzprogrammes  kann  tat¬ 
sächlich  mit  der  80-Zeichenkarte 
und  dem  Modul  zusammengearbei¬ 


tet  weiden,  Allerdings  gelang  es 
während  des  Tests  nicht,  eine  Ver¬ 
sion  des  Textverarbeitungspro- 
gramms  »Wordstar«  einzusetzen,  da 
sich  die  Bildschirmausgabe  bis  auf 
die  erste  Zeile  sperrte.  Dieser  Feh¬ 
ler  muß  aber  nicht  unbedingt  auf  die 
Karte  zurückgeführt  werden,  denn 
wie  jeder  CP/M-Besitzer  weiß,  hat 
die  CP/M-Karte  ihren  eigenen  Wil¬ 
len.  Problemlos  war  aber  das  Zu¬ 
sammenspiel  mit  Simons  Basic,  für 
das  ebenfalls  ein  kurzes  Programm 
geladen  werden  mußte.  Sogar  der 
normale  High-Resolution-Bildschimi 
für  die  Grafiken  bleiben  erhalten, 
wenn  ein  zweiter  Monitor  ange¬ 
schaltet  ist.  Lediglich  die  Befehle 
TRACE,  COLD,  CENTRE  und  PRINT 
AT  sind  in  ihrer  Funktion  einge¬ 
schränkt,  beziehungsweise  sollten 
nicht  angewendet  werden. 

Leider  gibt  es  bisher  kein  Textver¬ 
arbeitungsprogramm,  das  mit  der 
80-Zeichenkarte  zusammenarbeitet. 
Gerade  hier  wäre  aber  der  sinnvoll¬ 
ste  Einsatz  zu  sehen.  Hier  sind  die 
Softwarehäuser  gefordert,  denn  Vi- 
zawrite  64  oder  Textomat  mit  einer 
vollen  Darstellung  von  80  Zeichen 
auf  dem  Bildschirm  wäre  schon  eine 
tolle  Sache. 

(Arnd  Wängler/aa) 


Bezugsquellen:  Tattan  Monilore,  Melchers  &  Co.,  Postfach 

102229,  2800  Bremen  1,  Tel.  (04  21)  176989 

BMC  Monilore:  Weber  Computeriechnik,  Eulenspiegelstr. 

56,  8000  München  38.  Tel.  (089)  60!  2554 

Cable  Monilore:  Boston  Compuier,  Rosenheimer  Str.  14SA, 

8000  München  80.  Tel.  491073 

Decam  Karte:  Decam  Electronic.  Pappelweg  3,  7517  Wald¬ 
bronn,  Tel  (07243)39264 


Bild  7.  Oer  Zwillingsbruder,  der  BMC  BM  12  EN 


Bild  8.  Dieser  Monitor  lieferte  im  Test  das  beste  Ergebnis  mit  der 
80-Zeichen-Karte.  Leider  ist  das  Foto  etwas  überstrahlt  aufgenommen. 
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Interface  ist  nicht  gleich  Interface. 
Jede  Schnittstelle  zum  Anschluß  von 
Druckern  mit  Centronics-Schnittstelle  hat 
jhre  eigenen  Vor-  und  Nachteile.  Ein 

Universalkönner  ist  Print  64. 


Bild  1.  Print  64  —  unscheinbar  aber  gut 


Manche  Schnittstelle  eignet  sich 
gut  zum  Ausdruck  von  Texten, 
versagt  aber  bei  den  Com- 
modore-eigenen  Zeichen  für  Grafik 
und  Cursorsteuerung.  Andere  wie¬ 
der  streiken  bei  den  Grafiksymbo¬ 
len  und  selbst  definierten  Zeichen. 
Nur  ganz  wenige  beherrschen  die 
Kunst  des  Bildschirmausdrucks 
hochauflösender  Grafik.  Für  Print 
64  gehören  diese  Funktionen  aber 
zur  Standardausstattung.  Das  Inter¬ 
face  besteht  aus  einem  unscheinba¬ 
ren  braunen  Kasten  (Bild  1),  der  zwi¬ 
schen  dem  C  64  (beziehungsweise 
Floppy)  und  dem  Drucker  zwischen¬ 
geschaltet  wird.  Die  notwendige 
Stromversorgung  holt  sich  das  Inter¬ 
face  aus  dem  Drucker.  Bei  manchen 
Geräten  (zum  Beispiel  Epson),  ist  es. 
bevor  der  Drucker  sich  rührt,  not¬ 
wendig,  eine  Stromversorgung  von 
5  V  auf  Pin  18  des  Centromcs-Ports 
zu  legen.  Der  etwas  Geübte  ent¬ 
nimmt  die  Spannung  einem  der  vie¬ 
len  TTL-Bausteinen  auf  der 
Druckerplatine  und  verbindet  sie 
mit  dem  Port  im  Drucker  selbst.  Eine 
zweite  Möglichkeit  besteht  darin, 
ein  externes  Netzteü  anzuschließen. 

Nach  dem  erfolgreichen  Über¬ 
winden  dieser  Schwierigkeit  steht 
dem  Anwender  ein  leistungsfähiges 
Hüfsmittel  zur  Verfügung,  das  er 


bald  nicht  mehr  missen  möchte. 
Pnnt  64  ist  durch  seine  Konzeption 
als  »Hardware-Schnittstelle«  zu  fast 
allen  kommerziellen  Programmen 
kompatibel.  Bei  der  Wahl  der  Gerä¬ 
te  und  Sekundäradressen  wurde 
darauf  geachtet,  möglichst  dem 
Commodore-Standard  zu  entspre¬ 
chen.  Die  Sekundäradresse  7  be¬ 
wirkt  beispielweise,  wie  bei  Com- 
modore-Druckern,  die  Groß-  und 
Kleinschrift.  Damit  sind  die  Fähig¬ 
keiten  des  Interfaces  natürlich  noch 
bei  weitem  nicht  erschöpft.  Im  we¬ 
sentlichen  kann  man  bei  Print  64  zwi¬ 
schen  zwei  Bereichen  von  Funktio¬ 
nen  unterscheiden.  Zum  einen  sind 
das  die  Druckbefehle,  die  direkt  auf 
den  Drucker  (über  Sekundäradres¬ 
sen)  wirken,  zum  anderen  sind  das 


einige  Erweiterungen,  die  von  der 
mitgelieferten  Diskette  nachgela¬ 
den  werden. 

Die  Sekundäradressen  finden 
Verwendung  beim  Ausdrucken  von 
Texten  und  zum  Auflisten  von  Pro¬ 
grammen.  Alle  ASCII-Codes  wei¬ 
den  dabei  so  umgewandelt,  daß  sie 
der  Standard tabelle  entsprechen. 
Für  besondere  Zwecke  kann  das  In¬ 
terface  auch  als  reines  Verbin¬ 
dungskabel  verwendet  werden,  oh¬ 
ne  das  eine  Umwandlung  der 
ASCII-Codes  vorgenommen  wird. 
Zusätzlich  stehen  aber  auch  fast  alle 
Commodore-Grafikzeichen  zur  Ver¬ 
fügung.  »Fast«  alle  Grafikzeichen 
muß  deshalb  gesagt  werden,  weü 
einige  der  Zeichen  umdefiniert  wur¬ 
den  und  nun  den  deutschen  Zei- 


1  REM  "£ inDDHUaDßSHE$?-|  | 3JDJDJ I  |  \*  ' " 

2  REM  "3  H  *  CI  #  @  £  " 

IO  REM  L: LKJ: DFJFASFDFASFDFASFDFASDSDFAS 

FDFASFDFASFDFASFSFDFASFDFDFASFDF 

100  F'R I NT " U  LISTING  MODUS  " 

110  PRINT 

130  PRINT"  C64  AUF  FX  80 

140  PR INT: PR INT"  AMERIKANISCHER  ZEICHE 

NSATZ " 

Bild  2.  Jedes  Listing  wird  sehr  deutlich 


24  'Utfäi* 


Ausgabe  1 2 /Dezejrtber ,  1984 
64er-online.net 


Hardware-Test 


verschiedenen  Graustufen  für  die 
Farbwerte  des  Bildes  erreichen.  Ein 
einziges  Bild  kann  auf  diese  Weise 
in  vielfältiger  Weise  variiert  wer¬ 
den.  Zum  Ausdruck  von  eigenen 
Grafiken  ist  dieses  Programm  aller¬ 
dings  nicht  unbedingt  erforderlich. 
Dazu  genügt  schon  das  dritte  Pro¬ 
gramm  auf  der  Diskette.  Es  berei¬ 
chert  das  Commodore-Basic  um  ei¬ 
nige  wichtige  Befehle.  Durch  einfa¬ 
ches  Ändern  eines  Befehls  (bei¬ 
spielsweise  !CTN  oder  !CTD)  wird 
der  Ausdruck  sowohl  in  der  Punkt¬ 
dichte  als  auch  in  der  Breite  beein¬ 
flußt.  Es  ist  dabei  gleichgültig,  ob  es 
sich  um  einen  Textbildschirm  oder 
um  einen  HiRes-Bildschirm  handelt, 
es  braucht  nur  ein  anderer  Befehl 
verwendet  werden, 


Bild  4.  Sogar  Bilder  des  »Koala  Painters« 
sind  kein  Problem 


chensatz  beinhalten.  So  ist  beispiels¬ 
weise  die  eckige  Klammer  links  das 
kleine  »ä«  und  das  Pfundzeichen  das 
kleine  »ö«.  Erstmals  hat  der  Commo- 
d ore-Besitzer  die  Möglichkeit,  in  sei¬ 
nen  Basic-Programmen,  den  deut¬ 
schen  Zeichensatz  einzusetzen.  Die 
Bildschirmdarstellung  ist  dann  al¬ 
lerdings  gewöhnungs-  beziehungs¬ 
weise  umprogrammierungsbedürf¬ 
tig.  Für  Grafikzeichen  benutzt  das 
Interface  den  8-Bit-Grafikmodus, 
wie  er  bei  Epson-,  Star-  oder 
Seikonic-Druckern  zur  Verfügung 
steht,  der  Hintergrundspeicher 
bleibt  deshalb  zur  eigenen  Verwen¬ 
dung  frei.  Alle  Zeichen  werden  bild¬ 
schirmgetreu  ausgedruckt,  selbst¬ 
verständlich  auch  invertiert.  Dabei 
werden  für  jeden  Modus  zwei  ver¬ 
schiedene  Sekundäradressen  ein¬ 
gesetzt.  Die  erste  bewirkt,  daß  zur 
besseren  Lesbarkeit  alle  Zeichen 
(auch  die  Cursorzeichen)  mit  einem 
kleinen  Abstand  gedruckt  werden. 
Die  zweite  läßt  alle  Zeichen  wie  ge¬ 
wohnt  aneinandergereiht.  Beim  Auf¬ 
listen  von  Programmen  ist  diese 
Funktion  besonders  nützlich,  denn 
die  Deutlichkeit  aller  Steuerzeichen 
ist  auffallend  verbessert  (Bild  2). 

Der  zweite  interessante  Bereich 
dieses  voll  grafikfähigen  Interfaces 
bedarf  des  Nachladens  einiger  kur¬ 
zer  Programmteile  von  Diskette.  Die¬ 
se  Programme  sind  reine  Erweite¬ 
rungen,  wie  sie  eigentlich  zu  jedem 
Interface  gehören  sollten.  Den  gro¬ 
ßen  Pluspunkt  sammelt  Print  64 
durch  seinen  beigelegten  Drucker¬ 
kursus  »Ein  Interface  stellt  sich  vor«, 


in  dem  alle  wichtigen  Funktionen 
ausführlich  und  grafisch  anspre¬ 
chend  erläutert  werden.  Da  der  ge¬ 
samte  Druckerkursus  auf  Diskette 
gespeichert  ist,  können  alle  gerade 
gelernten  Befehle  sofort  auspro¬ 
biert  werden.  Die  beiden  anderen 
Programme  sind  schon  richtige 
Basic-Erweiterungen.  Mit  ihnen 
wird  der  Grafikausdruck  fast  schon 
zum  Hobby.  Mit  einem  speziellen 
Hardcopy-Programm  können  alle 
Bilder  der  bekannten  Grafikhilfen 
Paint  Magic,  Supergrafik,  Doodle 
und  vor  allem  vom  Koala-Painter  und 
dem  Sketch-Pad  ausgedruckt  wer¬ 
den  (Bild  3  und  4).  Die  Bedienung  ist 
menügesteuert  und  anwender¬ 
freundlich. 

Besonders  reizvolle  Effekte  lassen 
sich  aber  durch  Veränderungen  der 


Schenkt  man  dem  Fehlen  einiger 
weniger  Grafikzeichen  keine  Be¬ 
achtung,  so  sind  der  etwas  langsa¬ 
me  Ausdruck  der  Grafikzeichen 
und  die  Lötarbeiten  beim  Einbau  in 
Epson-Drucker,  die  einzigen  Nach¬ 
teile  dieses  Interfaces.  Print  64  ar¬ 
beitet  mit  verschiedenen  Textverar¬ 
beitungsprogrammen  zusammen. 
Es  kann  deshalb  und  wegen  seines 
insgesamt  gelungenen  Konzepts,  als 
eines  der  besten  Interfaces  zum  An¬ 
schluß  von  Druckern  mit  Centro- 
nics-Schnittstelle  bezeichnet  wer¬ 
den.  Bei  einem  Preis  von  320  Mark, 
einschließlich  der  Diskette  mit  den 
Hüfsprogrammen,  eine  starke  Lei¬ 
stung. 

(Arnd  Wängler/aa) 

Bezugsauelle:  Rolf  Rocke  Computer,  5090  Leverkusen  3.  Aue- 
straße  1.  Tel.  021 71/2624 
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C  64 


Es  ist  schon  nervig.  Wieder  ein¬ 
mal  sitzt  man  vor  seinem  C  64 
und  lädt  ein  Programm  nach 
dem  anderen  in  den  Speicher.  Viel¬ 
leicht  ordnen  Sie  gerade  Ihre  Pro¬ 
grammsammlung.  Diskette  wech¬ 
seln,  Programm  laden,  kurz  an¬ 
schauen,  danach  wieder  Diskette 
wechseln  und  abspeichern.  Die 
Wartezeiten  beim  Laden  und  Spei¬ 
chern  machen  ganz  müde.  Die  Fin¬ 
ger  trommeln  einen  %-Takt  auf  den 
Schreibtisch.  Im  Geiste  rechnet  man 
schon  aus,  wieviel  wertvolle  Zeit  wie¬ 
der  verloren  geht.  Voller  Neid  denkt 
man  an  Disketten-Laufwerke  ande¬ 
rer  Hersteller  und  Computer,  die 
die  Nerven  nicht  so  stark  beanspru¬ 
chen. 


Ein  erster  Lichtblick 


Eines  Tages  boten  zwei  junge 
Männer  ein  Programm  an,  das  die 
Floppy  1541  beim  Laden  von  Pro¬ 
grammen  um  ein  mehrfaches  be¬ 
schleunigt,  Den  Erfolg  kennen  Sie 
bereits.  In  der  Ausgabe  10/84  wurde 
HYPRA-LOAD  zum  Listing  des  Mo¬ 
nats  gemacht. 

Setzt  man  dieses  Programm  ein, 
werden  sofort  Sehnsüchte  wach. 
Wenn  schon  das  Laden  von  Pro¬ 
grammen  schneller  geht,  dann  bitte 
auch  das  Speichern  und  wenn  mög¬ 
lich  auch  Direktzugriffe  und  Datei¬ 
handling. 

Es  ist  seltsam:  Kaum  hatten  wir 
HYPRA-LOAD  in  den  Händen,  kam 
die  nächste  Überraschung.  Ein  Ver¬ 
treter  der  holländischen  Firma 
Computing  International  präsentier¬ 
te  uns  ein  System,  daß  alle  oben  ge¬ 
nannten  Wünsche  in  Erfüllung  ge¬ 
hen  ließ.  Allerdings  reicht  eine  reine 
Software-Lösung  nicht  mehr  aus. 
Auch  an  der  Hardware  muß  jetzt  ma¬ 
nipuliert  werden  (siehe  Bild). 

Der  Grundgedanke  ist  klar.  Es 
gibt  eigentlich  nur  zwei  Hemmschu¬ 
he  für  die  Floppy.  Zum  einen  ist  es 
die  serielle  Datenübertragung,  und 
zum  anderen  die  umständlichen 
Routinen  des  Floppy-DOS  (Disk- 
Operation-System).  International 
Computing  löst  beide  Probleme.  Sie 
schrieben  die  Busroutinen  um, 
machten  sie  schneller  und  gleich¬ 
zeitig  wurde  ein  paralleler  An¬ 
schluß  hergestellt  und  zwar  interes¬ 
santerweise  ein  IEEE-488-  Bus.  Das 
ist  nicht  unbedingt  notwendig,  aber 
ein  Vorteil,  wenn  Sie  auf  größere 
Commodore-Peripherie  zugreifen 


wollen.  So  schlossen  wir  versuchs¬ 
weise  die  Commodore-Floppy  SFD 
1001  mit  1000  KByte  Diskettenspei¬ 
cherkapazität  an.  Es  war  eme  wahre 
Wonne,  daß  Gerät  in  Aktion  zu  se¬ 
hen.  Auf  die  SFD  1001  Stellten  wir 
die  1541  und  ließen  die  beiden  zu¬ 
sammen  arbeiten.  Die  Übertragung 
von  einem  Gerät  zum  anderen,  ganz 
gleich  in  welcher  Richtung,  ging 
problemlos  über  die  Bühne.  Und  die 
Geschwindigkeit  war  so  verblüf¬ 
fend,  daß  wir  zuerst  an  einen  Fehler 
dachten,  als  die  READY-Meldung  so 
schnell  wieder  zu  sehen  war.  Aber 
es  gab  keine  Fehler.  — ^ 

Wie  steht  es  mit  derKompatibili- 
tät?  Diese  Frage  ist  noch  wichtiger 
als  das  Maß  der  Geschwindigkeits¬ 
steigerung.  Denn  davon  hängt  die 
Einsetzbarkeit  ab.  Es  wäre  schlimm 
gewesen,  wenn  man  lediglich  die 
parallele  Übertragung  gegen  die 
serielle  getauscht  hätte.  Jedoch  ste¬ 
hen  beide  zur  Verfügung.  Mit  einem 
kleinen  Schalter  läßt  sich  jederzeit 
die  gewünschte  Übertragungsart 
einstellen.  Das  ist  in  zwei  Fällen 
wichtig.  Einmal  kann  es  sein,  daß 
Programme  sich  doch  nicht  über 
das  parallele  Kabel  laden  lassen 
(das  kann  passieren,  wenn  diese 
Programme  selber  den  seriellen 
Bus  abfragen  und  verändern).  Zum 
anderen  muß  auf  einen  am  seriellen 
Port  angeschlossenen  Drucker  zu¬ 
gegriffen  werden  können.  Leider 
ging  das  nicht,  wenn  der  Schalter 
auf  parallel  stand.  Durch  einfaches 
Umschalten  ließ  sich  das  Problem 
beseitigen.  Wir  konnten  zwei  Vorab- 
Versionen  testen.  In  der  einen  Ver¬ 
sion  mußte  beim  Umschalten  ein  Re¬ 
set  durchgeführt  werden,  in  der  an¬ 
deren  Version  war  das  nicht  nötig. 
Ein  im  Speicher  befindliches  Pro¬ 
gramm  wird  dann  nicht  gelöscht. 
Nach  Aussage  von  Computing  Inter¬ 
national  werden  die  ausgelieferten 
Versionen  einen  Druckerbetrieb 


unabhängig  von  der  eingestellten 
Übertragungungsart  garantieren. 

Bei  den  Programmen  gab  es  kei¬ 
ne  Lade-  oder  Speicherprobleme, 
ausgenommen  einiger  Programme 
mit  eigenen  Busroutinen,  die  jedoch 
relativ  selten  smd.  Wenn  das  Pro¬ 
gramm  aktiv  ist,  kann  kein  Kasset¬ 
tenrecorder  angeschlossen  wer¬ 
den.  Dieses  Problem  kann  jedoch 
auch  mit  einem  Schalter  gelöst  wer¬ 
den,  der  den  vorher  belegten  Spei¬ 
cherbereich  wieder  freigibt. 

Die  RS232-Schnittstelle  ist  nach 
Angabe  des  Herstellers  voll  funk¬ 
tionstüchtig. 

Die  Tests  ergaben  bei  diesem  Sy¬ 
stem  eine  zwei-  bis  vierfache  Steige¬ 
rung  der  Geschwindigkeit  beim  La¬ 
den  und  Speichern  von  Program¬ 
men  sowie  eine  geringfügigere  Stei¬ 
gerung  um  den  Faktor  1,2  bis  2  beim 
Arbeiten  mit  Dateien. 

Es  gibt  zwei  Wege,  seinen  Com- 
modore  64  umzurüsten.  Sie  können 
entweder  einen  Bausatz  bestellen 
(zirka  250  Mark,  inbegriffen  sind  alle 
Bauteile),  oder  Sie  schicken  Ihre  Ge¬ 
räte  (C  64  und  Floppy  1541)  ein,  die 
Lösung  für  den  Nichtbastler.  Dann 
kostet  der  Umbau  voraussichtlich 
375  Mark.  Den  Umbau  erledigt  in 
Deutschland  die  Firma  Optronik 
Service  International. 


Speeddos  - 
die  Erweiterung  mit  Pfiff 

Eine  weitere  Alternative  zu  diver¬ 
sen  Fastload-Programmen  und  IEC- 
Bus-Floppy-Laufwerken  vertreibt 
S&S-Soft  und  nennt  sich  Speeddos: 
Eine  kleine  Hardware-Erweiterung 
für  den  C  64,  deren  Einbau  sich  auf 
einfaches  Einstecken  beschränkt. 

Alle  Programme,  die  mit  »Speed¬ 
dos«  abgespeichert  wurden,  sollen 
sich  bis  zu  zehnmal  schneller  laden 
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Schimpfen  Sie  nicht  mehr  über  die  nervenzermürbende  Langweilerin  Commodore- 
Floppy  1541.  Jetzt  kommen  auf  einmal  gleich  mehrere  Systeme  auf  den  Markt, 
die  der  1541  die  Sporen  geben.  Die  besten  drei  stellen  wir  Ihnen  vor. 


Bild  1.  Eines  der  vorgestellten  Systeme.  Bei  diesem  System 
wurde  ein  IEEE-488-8us  integriert.  Dabei  bleiben  Expansion- 
und  User-Port  frei.  An  Hardware  sind  notwendig  je  eine  kleine 
Platine  für  C  64  und  Floppy,  außerdem  ein  lEEE-Stecker  plus 
Kabel.  Die  seriellen  Ports  bleiben  voll  funktionstüchtig.  Die 
Platinen  werden  aufgesteckt. 


lassen.  Mit  normalem  Betriebssy¬ 
stem  gespeicherte  Programme  wer¬ 
den  mit  rund  sechsfacher  Ge¬ 
schwindigkeit  geladen. 

Da  die  reine  Datenübertragung 
etwa  achtmal  schneller  ist,  ergibt 
sich  bei  floppyinternen  Operationen 
eine  generelle  Geschwindigkeits¬ 
steigerung  um  den  Faktor  2  bis  5. 
Das  Formatieren  einer  Disk  benötig¬ 
te  in  unserer  Demonstrationsversion 
39  Sekunden,  in  der  Verkaufs  Ver¬ 
sion  soll  der  Formatierungsvorgang 
nur  noch  17  Sekunden  dauern  und 
das  Laden  soll  mit  der  zehnfachen 
Geschwindigkeit  möglich  sem. 
Auch  der  Betrieb  von  zwei  1541  mit 
Speeddos  ist  kein  Problem. 

Zusätzlich  zum  Geschwindigkeits¬ 
vorteil  wurden  einige  Verbesserun¬ 
gen  und  Erweiterungen  an  den  Be¬ 
triebssystemen  von  Computer  und 
Floppy  eingebaut.  Dem  Benutzer 
steht  ein  komplettes  DOS  zur  Verfü¬ 
gung,  mit  dessen  Hilfe  man  auch 
den  zusätzlichen  Löschschutzbefehl 
der  Floppy  ansprechen  kann  oder 


das  Inhaltsverzeichnis  ohne  Pro¬ 
grammverlust  erhält.  Die  Funktions¬ 
tasten  wurden  mit  einigen  häufig  be¬ 
nötigten  Funktionen  belegt  (zum  Bei¬ 
spiel  List,  Run,  Directory  ohne  Pro¬ 
grammverlust,  etc.).  Die  Belegung 
ist  abschaltbar.  Außerdem  wurde 
eine  softwaremäßige  Centronics- 
Schnittstelle  integriert,  die  automa¬ 
tisch  aktiviert  wird,  wenn  ein 
Centronics-Drucker  (zum  Beispiel 
Itoh  oder  Epson)  am  User-Port  ange¬ 
schlossen  ist.  Entsprechende  Kabel 
dazu  können  ebenfalls  geliefert 
werden. 

In  der  Verkaufsversion  soll  außer¬ 
dem  ein  komfortabler  Maschinen¬ 
sprache-Monitor  (mit  Auf-  und 
Abwärts-Scrolling)  enthalten  sein. 

Darüber  hinaus  bietet  Speeddos 
noch  einen  laufwerks-  und  disket¬ 
tenschonenden  Effekt:  Bei  auftre¬ 
tenden  Fehlern  hört  man  kein  lautes 
Rattern  mehr,  sondern  nur  noch  ein 
leises  »Taktak«,  das  den  Steppermo¬ 
tor  und  den  Endanschlag  nur  noch 
minimal  belastet.  Beim  Einlegen  von 


Disks  in  das  Floppy-Laufwerk  läuft 
der  Motor  automatisch  an  und  zen¬ 
triert  die  Diskette  gleich  beim  Einle¬ 
gen. 

Speeddos  benötigt  keinen  Spei¬ 
cherplatz  und  läuft  mit  allen  Pro¬ 
grammen,  die  nicht  auf  den 
Datasette-Recorder  oder  die  RS232- 
Schnittstelle  zugreifen.  Das  sind 
rund  98%  der  derzeit  verfügbaren 
Software.  Somit  ist  aber  auch  hier 
zum  Beispiel  die  Verwendung  eines 
Akustikkopplers  in  Verbindung  mit 
Speeddos  nicht  möglich.  In  diesem 
Fall  muß  das  EPROM  vom  C  64  ab¬ 
gezogen  werden.  Der  Betrieb  mit 
CP/M  läuft  da  hingegen  ohne  Ein¬ 
schränkung  und  geht  ungefähr  drei¬ 
mal  schneller  als  normal. 

Besonders  hervorzuheben  an  die¬ 
ser  Erweiterung  ist  die  außerordent¬ 
liche  Geschwindigkeit  und  Kompati¬ 
bilität  zur  erhältlichen  Software. 

Speeddos  wird  als  Bausatz  vor¬ 
aussichtlich  269  Mark  kosten.  Der 
Einbau  beschränkt  sich  auf  einfa¬ 
ches  Einstecken  von  EPROMs  und 


Hardware 


Steckern  in  den  Computer  und  ist 
von  jedem  Laien  durchführbar.  Für 
diejenigen,  die  einen  C  64  mit  einge¬ 
lötetem  Betriebssystem  besitzen,  ist 
gegen  einen  Aufpreis  von  20  Mark 
eine  Platine  erhältlich,  die  in  diesem 
Fall  das  Löten  erspart. 

Die  Entwickler  von  Speeddos,  O. 
Joppich  und  O.  Eikemeier,  arbeiten 
an  einem  Backup-Programm  für 
Speeddos,  das  bei  einem  Laufwerk 
eine  ganze  Disk  in  unter  zwei  Minu¬ 
ten  kopieren  soll.  Ein  noch  schnelle¬ 
res  Backup  für  zwei  Laufwerke  ist 
ebenfalls  in  Planung. 

Geschwindigkeit  ist 
(k)eine  Hexerei 

Auch  mit  dem  dritten  System,  das 
wir  Ihnen  vorstellen,  dem  »Turbo  Ac¬ 
cess«  von  Roßmüller,  werden  Träu¬ 
me  wahr:  Die  »lahme  Ente«  —  ge¬ 
meint  ist  natürlich  die  Floppy  1541  — 
lernt  fliegen.  Zehnmal  schnelleres 
Laden,  dreimal  schnelleres  Abspei¬ 
chern,  das  sind  Werte,  die  sich  se¬ 
hen  lassen  können.  Ja  selbst  die  gro¬ 
ßen  Commodore-Floppies  mit  ih¬ 
rem  Parallelbus  können  auf  einmal 
nicht  mehr  mithalten. 

Die  Engstelle  der  1541  ist  seit  lan¬ 
gem  bekannt:  Alle  großen  CBM- 
Computer  benutzen  einen  8-Bit- 
Parallelbus,  nur  die  kleinen  arbei¬ 
ten  mit  einer  seriellen  Schnittstelle. 
Dabei  wird  jedes  übertragene  Byte 
in  8  Bit  zerlegt,  die  einzeln  über  den 
Bus  geschickt  werden.  Und  das 
braucht  Zeit ... 

Acht  Drähte  machen  noch  keinen 
Bus  ... 

Was  hegt  also  näher,  als  einfach 
mehr  Leitungen  zur  Übertragung  zu 
spendieren?  Doch  damit  ist  das  Be¬ 
triebssystem  der  Floppy,  das  DOS, 
nicht  so  ohne  weiteres  einverstan¬ 
den.  Man  muß  es  daher  umgehen 
und  eine  eigene  Verwaltung  aufbau¬ 
en.  Davon  machen  Programme  wie 
»HYPRA  LOAD«  gebrauch:  In  das 
RAM  der  Floppy  wird  ein  eigenes 
Programm  geschrieben,  das  die  Da¬ 
tenübertragung  abwickelt.  Der 
Nachteil  einer  solchen  Software- 
Lösung  liegt  auf  der  Hand:  Vor  jeder 
Übertragung  muß  das  Programm 
erst  in  die  Floppy  geschoben  wer¬ 
den,  und  dazu  braucht  man  wieder 


ein  Programm,  das  geladen  werden 
muß  ... 

...  ohne  Lenkung  geht  nichts! 

Beim  »Turbo  Access«  hat  man  dar¬ 
aus  die  Konsequenz  gezogen:  Es 
handelt  sich  um  eine  reine 
Hardware-Lösung,  die  aus  drei  Pla¬ 
tinen  und  einem  Flachbandkabel 
für  die  Parallelübertragung  besteht. 

Zur  Ausstattung  gehören  zwei 
EPROMs,  die  neue  Betriebssysteme 
sowohl  für  die  Floppy,  als  auch  für 
den  C  64  enthalten.  Sie  befinden 
sich  zusammen  mit  den  alten  um- 
schaltbar  in  Floppy  beziehungswei¬ 
se  Computer.  Die  dritte  Platine 
steckt  im  Expansion-Port  und  ist  mit 
einem  zusätzlichen  PIA,  ähnlich 
dem  User-Port,  bestückt.  Für  Inter¬ 
essierte  sei  hier  angemerkt,  daß  sie 
auf  keinen  Port  verzichten  müssen  — 
der  benutzte  Expansion-Port  ist 
durchgeschleift. 

Allerdings  lag  zum  Test  noch  nicht 
die  endgültige  Fassung,  sondern  ei¬ 
ne  vorläufige  »Arbeitsversion«  vor. 
Nach  Angaben  des  Hoteliers  wird 
die  endgültige  VersTÖn  auch  be¬ 
rücksichtigen,  daß  die  Floppy  1541 
in  zwei  Versionen  gebaut  ward,  die 
sich  in  der  Platinenform  unterschei¬ 
den. 

Wer  jetzt  Holz  aufs  Feuer  legt,  um 
den  Lötkolben  aufzuheizen,  muß  al¬ 
lerdings  enttäuscht  werden.  Alles  ist 
steckbar,  mit  wenigen  Griffen  einzu¬ 
bauen. 

Was  leistet  »Turbo  Access« 

Stellt  man  die  Floppy  wie  oben  be¬ 
schrieben  auf  Parallelübertragung 
um,  erreicht  man  aus  dem  Stand  die 
6fache  Ladegeschwindigkeit.  Noch 
smd  die  Files  ja  nach  alter  DOS- 
Manier  abgelegt.  Dies  ist  mittlerwei¬ 
le  schon  fast  »Standard«.  Mit  »Turbo 
Access«  abgespeicherte  Program¬ 
me  werden  allerdings  zirka  zehnmal 
schneller  geladen.  Hier  einige  Test¬ 
zeiten: 

158  Blöcke  werden  in  10,4  Sekun¬ 
den  geladen.  Die  4040  braucht  dafür 
immerhin  23  Sekunden,  die  »norma¬ 
le«  1541  1  Minute  und  40  Sekunden. 

Eine  Diskette  wird  in  29  Sekunden 
formatiert.  Die  1541  braucht  etwa 
1  Minute  30  Sekunden. 

Die  Befehle  SCRATCH  und  VALI- 
DATE  werden  zirka  doppelt  so 
schnell  wie  bisher  ausgeführt. 

SAVE  erfolgt  mit  der  dreifachen 
Geschwindigkeit.  Das  entspricht  un¬ 


gefähr  der  Geschwindigkeit  der 
4040.  Bei  jedem  SAVE  wird  anschlie¬ 
ßend  verifiziert.  Daraus  erklärt  sich 
der  erhöhte  Zeitbedarf  gegenüber 
LOAD. 

Wodurch  werden  diese  Zeiten 
möglich?  Ursache  ist,  wie  bei  den 
beiden  anderen  Systemen,  daß 
nicht  nur  die  Übertragung  selbst, 
sondern  das  gesamte  DOS  umfas¬ 
send  überarbeitet  wurde,  Dabei 
wurde  auch  die  Verwaltung  auf  der 
Diskette  abgeändert,  und  das  bringt 
die  Floppy  ganz  schön  auf  Trab.  Die 
Kopfpositionierung  wird  dreimal 
schneller,  das  zahlt  sich  vor  allem 
bei  relativen  Files  aus.  Und  einige 
Fehler  im  alten  DOS  wurden  gleich 
mitkorrigiert.  Das  lästige  »Gerap- 
pel«  beim  Formatieren,  Ursache  für 
viele  verstellte  Schreib-Lese-Köpfe, 
wird  auf  ein  Mindestmaß  reduziert 
und  noch  einiges  andere  mehr. 

Keine  Angst,  bei  allen  Änderun¬ 
genwurde  darauf  geachtet,  daß  alle 
Befehle  genauso  funktionieren  wie 
bisher.  Denn  was  nützt  die  schnell¬ 
ste  Floppy,  wenn  kein  Programm  da¬ 
mit  zusammenarbeitet.  Bei  allen 
Versuchen  gab  es  bisher  nur  ein 
Programm,  das  nicht  mit  »Turbo  Ac¬ 
cess«  zusammen  lief.  Selbst  Pro¬ 
gramme,  die  intensiv  mit  Disketten¬ 
befehlen  arbeiten  (zum  Beispiel 
»EX-DOS«  und  Kopier-Programme 
wie  »FCOPY«  oder  »Quick-Copy«), 
machten  ebensowenig  Schwierig¬ 
keiten  wie  Datenverwaltungs-  oder 
Testprogramme.  Spiele,  die  häufig 
Teile  von  Diskette  nachladen,  wer¬ 
den  zum  echten  Streß,  da  man  nicht 
einmal  mehr  dazu  kommt,  Bier  aus 
dem  Keller  zu  holen  ... 

Relative  oder  sequentielle  Files 
werden  genauso  problemlos  verar¬ 
beitet.  Und  sollte  einmal  etwas  nicht 
laufen,  drückt  man  CTRL  +  £,  legt 
einen  Schalter  um  und  hat  wieder 
den  alten  Zustand  hergestellt.  In  den 
meisten  Fällen  ist  das  sogar  mitten 
im  Programm  ohne  Programm- oder 
Datenverlust  möglich. 

Und  der  Haken  bei  der  Sache? 

Natürlich,  das  dicke  Ende  mußte 
ja  noch  kommen,  aber  so  dick  ist  es 
nun  auch  wieder  nicht.  Um  im  Rech¬ 
ner-Betriebssystem  Platz  zu  bekom¬ 
men,  wurden  die  Kassetten-Routi- 
nen  entfernt.  Für  den  Betrieb  der 
Datasette  muß  man  auf  die  alten  Be¬ 
triebssysteme  umschalten.  Dafür 
wurden  im  neuen  Betriebssystem 
noch  einige  äußerst  nützliche  Routi¬ 
nen  eingebaut.  So  ist  jetzt  mit  CTRL 
+  D  jederzeit  eine  Directory-Aus¬ 
gabe  —  natürlich  ohne  Programm- 

Fortsetzung  auf  Seite  163 
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Bild  4.  Das  EPROM  2754  zweifach  »gesockelt« 


Zugegeben,  der  Commo- 
doie  64  hat  einige  Nach¬ 
teile.  Aber  warum  sollte 
man  sich  damit  abfinden? 
Alles  kann  mit  dem  ROM- 
Change-Programm  verän¬ 
dert  werden. 

Jedem  Computer,  auch  dem 
Commodore  64  wird  ab  Werk  ei¬ 
ne  bestimmte  Ausstattung  an 
Software  mit  auf  den  Weg  gegeben. 
Damit  ist  nicht  die  Demo-Diskette 
gemeint,  sondern  die  fest  im  Com¬ 
puter  eingebaute,  auf  PROMs  ge¬ 
speicherte  Firmware.  Sie  sorgt  da¬ 
für,  daß  der  Commodore  überhaupt 
auf  Eingaben  reagiert  oder  einen 
Basic-Befehl  ausführt. 

Der  gesamte  C  64  (und  jeder  an¬ 
dere  Computer)  ist  eigentlich  nichts 
anderes  als  eine  Anzahl  miteinan¬ 
der  verdrahteter  Baugruppen,  die 
allein  zu  nichts  fähig  sind.  Leben  ein¬ 
gehaucht  wird  dem  ganzen  erst 
durch  ein  sehr  wichtiges  Programm, 
das  sogenannte  Betriebssystem. 
Dieses  Programm  initialisiert  und 
verwaltet  die  gesamte  Hardware. 
Beim  Commodore  64  ist  es  genau  8 
KByte  lang  und  liegt  im  Bereich  von 
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$EOOO  bis  $FFFF.  Der  zweite  wichti¬ 
ge  Festwertspeicher  ist  der  Basic- 
Interpreter.  Er  ist  ein  Übersetzungs¬ 
programm,  das  eine  Anweisung  in 
ein  maschinengerechtes  Signal  um¬ 
wandelt.  Auch  der  Interpreter  benö¬ 
tigt  8  KByte  und  liegt  im  Bereich  von 
$A000  bis  $C000.  Jetzt  fehlt  nur  noch 
der  Charakter-Set  von  4  KByte,  der 
ebenfalls  in  einem  eigenen  ROM  un¬ 
tergebracht  ist. 

Diese  drei  Programme  sind  für 
das  äußere  Erscheinungsbild  und 
die  Funktionalität  des  Commodore 
64  verantwortlich.  Hier  eröffnet  sich 
em  extrem  interessanter  Bereich 
der  Programmierung.  Dazu  bieten 
sich  zwei  Wege  an:  Der  erste  Weg 
beruht  auf  der  glücklichen  Tatsa¬ 
che,  daß  es  beim  Commodore  mög¬ 
lich  ist,  den  RAM-Bereich  unter  ei¬ 
nem  ROM  zu  nutzen.  In  der  Praxis 
sieht  das  folgendermaßen  aus:  Die 
Speicherinhalte  des  ROMs  werden 
zum  Bearbeiten  m  den  darunter  lie¬ 
genden  RAM-Bereich  kopiert.  Ob 
nun  das  RAM  oder  das  ROM  aktiv 
ist,  entscheidet  das  6510  Datenrich¬ 
tungsregister  (Speicherstelle  1). 
Vom  Basic  aus  ist  dieses  Register  al¬ 
lerdings  nur  dann  zu  verändern, 
wenn  sowohl  der  Basic-Interpreter, 
als  auch  das  Betriebssystem  in  das 
RAM  kopiert  wurden.  Das  geschieht 


entweder  mit  einer  POKE-Schleife 
oder  mit  dem  ROM-Change  Pro¬ 
gramm.  (Betriebssystem  kopieren: 
FOR  A  =  57344  TO  65535:  POKE 
A.PEEK  (A) :  NEXT) 

(Basic  kopieren:  FOR  A  =  40960  TO 
49152:  POKE  A,  PEEK  (A)  :  NEXT). 
Der  Normalwert  dieses  Registers  ist 
55  (probieren  Sie  es  aus).  Soll  das 
RAM  (für  Basic)  selektiert  aktiv  sein, 
muß  hier  der  Wert  54  eingeschrie¬ 
ben  werden.  Für  Basic  und  Be¬ 
triebssystem  zusammen  beträgt  der 
Wert  53.  Alle  Veränderungen  des 
Basic  und  Betriebssystems  sind 
dann  aktiv.  Bekannte  Programme 
wie  Quickcopy  und  viele  Basic- 
Erweiterungen  funktionieren  nach 
diesem  Prinzip. 

Der  zweite  und  wesentlich  reizvol¬ 
lere  Weg  die  Firmware  zu  beeinflus¬ 
sen  ist,  das  Betriebssytem  dauerhaft 
zu  verändern.  Dazu  ist  aber  ein  Ein¬ 
griff  im  Computer  notwendig,  denn 
die  oben  beschriebenen  Bausteine 
müssen  gegen  andere  ausgetauscht 
werden.  Wer  also  noch  Garantie  auf 
seinen  Commodore  hat,  sollte  be¬ 
sonders  vorsichtig  sein.  Im  ersten 
Teil  dieses  Artikels  wollen  wir,  zum 
Einüben  sozusagen,  die  Funktions¬ 
tasten  des  Commodore  64  mit  be¬ 
stimmten,  oft  gebrauchten  Werten 
belegen.  Im  zweiten  Teil  wird  das 
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Bild  3.  So  wird  der  2764  mit  den  Pins 
des  2364-Sockels  verbunden 
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Hypra-Load  aus  der  Ausgabe  10/84 
im  Betriebssytem.  verankert.  Der 
Nachteil  dieser  Änderungen  soll 
nicht  verschwiegen  werden.  Da  alle 
neuen  Funktionen  natürlich  Spei¬ 
cherplatz  benötigen,  müssen  ande¬ 
re  Teile  des  Betriebssystems  entfal¬ 
len,  Wir  haben  uns  entschlossen, 
die  Kassettenroutinen  ab  $F800  her¬ 
auszunehmen  und  zu  überschrei¬ 
ben.  Das  Laden  von  Kassette  wird 
dadurch  unmöglich,  es  sei  denn, 
das  alte  Betriebssystem  wird  paral¬ 
lelgeschaltet. 

Bevor  wir  nun  auf  das  Hilfspro¬ 
gramm  für  diese  Veränderungen, 
das  ROM-Change-Programm,  ent¬ 
gehen,  sollen  die  Hardware-Voraus¬ 
setzungen  für  die  Änderung  des  Be¬ 


triebssystems  erklärt  werden.  Nach 
dem  Öffnen  des  Computers  finden 
wir  auf  der  linken  hinteren  Seite  drei 
kleine  Bausteine,  hinter  denen  auf 
der  Platine  die  Bezeichnungen  U3 
bis  U5  stehen.  U3  ist  der  Basic-Inter- 
preter,  U4  das  Betriebssytem,  U5 
das  Charakter-ROM  (Bild  1).  Heute 
interessieren  wir  uns  aber  nur  für 
den  U4-Steckplatz.  Wer  Glück  hat, 
findet  dort  einen  Stecksockel.  Wer 
Pech  hat,  muß  seinen  Händler  oder 
einen  Lötkolbenfachmann  bitten, 
ihm  hier  einen  Stecksockb  einzulö¬ 
ten.  Anstelle  des  dort  befindlichen 
ROMs  kann  aber,  und  das  ist  die  we¬ 
sentlichste  Veränderung,  auch  ein 
EPROM  stecken.  Am  besten  eignen 
sich  hierzu  die  2564-Typen,  denn  sie 
sind  pinkompatibel  zu  den  Commo- 
dore-ICs.  Leider  sind  sie  sehr 
schwer  zu  beschaffen.  Im  Normalfall 
wird  aber  wahrscheinlich  ein  2764- 
EPROM  Verwendung  finden.  Der 
Nachteil  dieses  EPROMs  besteht  in 
einer  anderen  Belegung  der  An¬ 
schlußpins.  Hier  hilft  allerdings  ein 
einfacher  Adaptersockel.  Dazu 
braucht  man  einen  24-  und  einen 
28-Pin-Stecksockel.  Diese  beiden 
Sockel  werden  miteinander  ver¬ 
drahtet  (Bild  2  und  3).  Bild  2  zeigt  die 
beiden  Sockel  mit  den  Beinen  nach 
unten  stehend.  Der  kleine  Sockel 
steckt  später  im  U4-Steckplatz,  der 
größere  Sockel  trägt  das  geänderte 
Betriebssystem  und  steckt  auf  dem 
kleineren  Sockel.  Vor  dem  Einbau 
ist  es  aber  ratsam,  alle  Kontakte  auf 
richtigen  Anschluß  und  Leitfähig¬ 
keit  zu  überprüfen.  Schon  ein  einzi¬ 
ger  falscher  Anschluß  führt  zum 
»Absturz«  des  gesamten  Systems. 
Bild  4  zeigt,  wie  der  neue  Sockel  mit 
der  EPROM-Kerbe  zur  Gehäuse- 
Rückseite  auf  der  Platine  steht. 

Nun  aber  zur  Praxis,  dem  ROM- 
Change-Programm.  Es  ermöglicht 
das  gefahrlose  Ändern  und  Auspro¬ 
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Bild  2.  Der  2764  (links)  und  der  2364  (rechts) 

bieren  aller  Umprogrammierun¬ 
gen.  Dazu  wird  nach  dem  Start  der 
selektierte  ROM-Bereich  (Betriebs¬ 
sytem  oder  Basic)  ab  Adresse  $6000 
ins  RAM  kopiert.  Das  geschieht  mit 
einem  kurzen  Maschinenpro¬ 
gramm,  das  im  Kassettenpuffer 
steht.  Das  Programm  ist  für  den  Be¬ 
trieb  mit  einem  Diskettenlaufwerk 
gedacht,  läuft  aber  auch  im  Kasset¬ 
tenbetrieb,  wenn  ein  eigener  Moni¬ 
tor  zum  Laden  und  Abspeichern 
Verwendung  findet.  Nach  dem  Ko¬ 
pieren  erscheint  das  Hauptmenü, 
von  dem  aus  alle  wichtigen  Funktio¬ 
nen  erreichbar  sind.  Die  erste  dient 
dem  Einlesen  von  fest  im  Programm 
eingebauten  DATA-Zeilen.  In  unse¬ 
rem  Beispiel  sind  ab  Zeilennummer 
8000  die  DATAs  für  die  Funktionsta¬ 
sten  einprogrammiert.  Hier  können 
natürlich  auch  eigene  Werte  stehen. 
Die  erste  Zahl  gibt  dabei  die  reelle 
Adresse  an,  ab  der  die  DATAs  ge¬ 
schrieben  werden  sollen  (zum  Bei¬ 
spiel  57612  =  $E10C).  Der  Computer 
errechnet  dann  die  entsprechende 
Stelle  im  RAM.  Die  zweite  Zahl  gibt 
an,  wieviel  Bytes  übertragen  wer¬ 
den  sollen.  Die  dritte  Zahl  ist  die 
Prüfsumme.  Danach  folgen  die 
Programm-DATAs.  Bei  einem  Prüf¬ 
summenfehler  zeigt  der  Computer 
die  falsche  Prüfsumme  an.  Eigene 
Daten  werden  einfach  an  die  vor¬ 
handenen  DATAs  angehängt.  Die 
ersten  drei  Bytes  müssen  natürlich 
auch  die  obige  Bedeutung  haben. 
Als  letzte  Zeile  muß  stehen:  DATA  0, 
da  es  sonst  zu  einem  OUT  OF  DATA 
ERROR  kommt.  Der  zweite  Menü¬ 
punkt  liest  Maschinenprogramme 
direkt  an  die  vorgesehene  Stelle. 
Damit  kann  man  beispielsweise  ein 
Programmfile,  das  von  einem  As¬ 
sembler  erzeugt  wurde,  direkt  ein¬ 
iesen.  Wichtig  ist,  daß  die  Start¬ 
adresse  des  Programms  im  ROM- 
Adreßbereich  beziehungsweise  im 
Bereich  $6000  liegt.  Der  mit  Punkt  3 
wählbare  Minimonitor  hilft  beim 
schnellen  Ändern  einzelner  Bytes 
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im  hexadezimalen  Zahlensystem. 
Die  Startadresse  entspricht  dabei 
der  Adresse  im  ROM.  Der  Minimo¬ 
nitor  wird  durch  Eingabe  einer  Zahl 
größer  $FF  oder  des  Buchstabens  X 
verlassen.  Will  man  keine  Speicher¬ 
stelle  ändern,  genügt  RETURN  für 
die  Übernahme  des  alten  Wertes. 
Für  größere  Änderungen  reicht  die¬ 
ser  Minimonitor  natürlich  nicht  mehr 
aus.  Dazu  wird  mit  Punkt  4  ein  eige¬ 
ner  Monitor  aktiviert.  Dieser  muß  al¬ 
lerdings  vor  dem  Start  des  ROM- 
Change-Programms  bereits  gela¬ 
den  sein.  Der  Monitor  darf  im  Be¬ 
reich  von  $8000  bis  $9FFF  oder  von 
$C000  bis  $CFFF  stehen.  Zum  Star¬ 
ten  genügt  das  Eingeben  der  Start¬ 
adresse  des  Monitors  (hexadezi¬ 
mal!).  Mit  den  Menüpunkten  5  und  6 
wird  der  Speicherbereich  von  $6000 
bis  $7FFF  geladen  beziehungswei¬ 
se  abgespeichert.  Das  Laden  eines 
kompletten  Betriebssystems  dauert 
allerdings  mehrere  Minuten.  Einer 
der  wichtigsten  Menüpunkte  ist 
aber  der  siebte.  Er  startet  das  gera¬ 
de  veränderte  oder  geladene  neue 
Betriebssystem  (es  wird  natürlich 
zuerst  in  seinen  richtigen  Speicher¬ 
bereich  verschoben).  Vor  dem  Aus¬ 
probieren  dieser  Funktion  muß  in 
jedem  Fall  der  Punkt  5  angewählt 


werden,  wenn  die  Änderungen 
nicht  verlorengehen  sollen.  Es  kann 
Vorkommen,  daß  das  Betriebsystem 
beim  Starten  »abstürzt«.  Dann  ge¬ 
nügt  ein  RESET  und  die  erneute  Ak¬ 
tivierung  des  geänderten  ROMs 
durch  POKE  1,53. 

Sind  alle  Tests  im  RAM  positiv  ver¬ 
laufen,  können  wir  uns  an  die  Spei¬ 
cherung  des  neuen  Betriebssytems 
auf  EPROMs  heranwagen.  Das  neue 
Betriebssystem  -wird  von  Diskette  in 
den  RAM-Bereich  ab  $6000  absolut, 
das  heißt  mit  LOAD  "Ihr  Betriebssy- 
tem",8,l  geladen.  Ab  dieser  Adres¬ 
se  beginnt  auch  die  Programmie¬ 
rung  des  EPROMs.  Sie  endet  bei 
$8000  (8  KByte).  Das  neue  EPROM 
wird  anschließend  in  den  beschrie¬ 
benen  Stecksockel  eingesetzt  und  in 
Steckplatz  U4  befestigt.  Fertig  ist  das 
Betnebssytem. 

Was  noch  zu  klären  bleibt,  ist  die 
im  ROM-Change-Programm  bereits 
eingebaute  Funktionstastenbele¬ 
gung.  Die  Abfrage  der  Tastatur  ge¬ 
schieht  im  Betriebssytem  über  den 
Interrupt.  Wird  eine  Taste  gedrückt, 
hält  der  Prozessor  das  laufende  Pro¬ 
gramm  an  und  springt  in  die  Inter¬ 
rupt-Unterroutine  bei  $EA31.  Dort 
wird  festgestellt,  welche  Taste  ge¬ 
drückt  wurde.  Der  ASCILCode  der 


Taste  wird  im  Tastaturpuffer  gespei¬ 
chert.  Das  Funktionstastenpro¬ 
gramm  greift  an  dieser  Stelle  ein,  in¬ 
dem  es  den  Wert  der  gedrückten 
Tasten  mit  den  ASCII-Codes  für  die 
Funktionstasten  (133-140)  vergleicht. 
Stimmt  der  Wert  nicht  überein,  so 
wird  das  Programm  normal  weiter¬ 
geführt.  Ansonsten  vergleicht  das 
Programm  den  Tastenwert  mit  einer 
Tabelle,  in  der  die  Belegungen  für 
die  Funktionstasten  stehen.  Hat  das 
Programm  die  zur  Funktionstaste 
gehörige  Belegung  gefunden,  wird 
diese  in  den  Tastaturpuffer  ge¬ 
schrieben.  Damit  auch  Programme, 
die  auf  emer  Abfrage  der  Funk¬ 
tionstaste  aufbauen,  funktionieren, 
wurde  eine  Autoabschalt-Unterrou- 
tine  mitprogrammiert.  Kommt  es 
dennoch  einmal  zu  Schwierigkeiten, 
werden  die  Funktionstasten  mit 
POKE  2,1  abgeschaltet  und  mit  PO¬ 
KE  2,0  wieder  aktiviert. 

Abschließend  sei  nochmals  dar¬ 
auf  hingewiesen,  daß  alle  Arbeiten 
an  der  Hardware  des  C  64  mit  einem 
nicht  geringen  Zerstörungsrisiko 
verbunden  sind.  Wer  also  im  Um¬ 
gang  mit  Lötkolben  und  EPROMs 
nicht  geübt  ist,  sollte  sich  an  einen 
Fachmann  wenden. 

(Arnd  Wängler/Ernst  Schöberl/aa) 


Beim  Ablippen  des  Programms  sind  die  Werte  in  Klammern  am  Ende  einer  Zeile  nicht  miteinzugeben.  Sie  sind  erst  für  eine  spätere  Ausgabe  von  Bedeutung.  Unterstrichene  Buchstaben  sind  mit  der  Shift-Taste,  überstrichene  mit  der 
Commodore-Taste  einzugeben.  Bei  Ausdrücken  in  eckigen  Klammern  ist  die  jeweilige  Taste  zu  drücken. 


100  REM  SPEICHERPLATZ  FUER  RDM  VOR  BASIC  SCHUET 
ZEN  <  003  > 

110  POKE  55,0: POKE  56,96: CLR  <120> 

120  POKE  53272,23: POKE  53280,2  <212> 

130  GÜSUB  1130  .  <  2 1 2  > 

140  IF  PEEK  (53247)  033  THEN  160  <055> 

150  IF  PEEK (53246) =0  THEN  GOSUB  3600: GOTO  500 
<  1 1 1  > 

155  GOSUB  3700: GOTO  500  <074> 

160  PRINT"  CDQWN23": PRINT"  CSPACE  3.SRUECKEN  CSF'ACE  1 
SIE":  PR  INT  <059-> 

170  PRINT: PRINT  TAB (7) ; " 1 CSPACE2 IUM CSPACE 3 

JLERNAL  CSPACE I  (TT000-$OX£)  “  <2i?> 

180  PRINT: PRINT  TAB (7) ; "2CSPACE23UMCSPACE3BASIC 
CSPACE  3  <*fl000-*BFF£>  ■■  <  1 3 1  > 

190  PRINT: PRINT: PRINT  TAB ( 1 1 );" INESPACE 
CSPACE  3 AB  CSPACE 1*6000  CSPACE  3 ZU  CSPACE  3 


KOPIEREN. " 

<072  > 

200 

GET  A*: IF  A*=" "THEN  200 

<  039  > 

210 

IF  A*=" 1 "THEN  POKE  32767,255: GOSUB 

3600 

;  GOTO  240 

<  225  > 

220 

IF  A*<  >"2" THEN  200 

<  223  > 

230 

GOSUB  3700 

<061  > 

235 

REM  AN=ANFANSS ADRESSE  ROM 

- 

EN=END ADRESSE 

<  23 1  > 

240 

GOSUB  1600 

<  068  > 

300 

POKE  K+8 , I NT ( AN/256 ) 

<  252 > 

310 

POKE  K+29 , I NT ( EN/236 > 

<061  > 

340 

SYS  K  : REM  SCHIEBEROUTINE 

<032> 

500 

POKE  53280 , 5 : GOSUB  1 i 30 : PR I NT : POKE 

53247 , 0 

<  1 28  > 

505  PR I NT : PR I NT : PR I NT " CSPACE6  3£RWE I TERUNG  CSPACE  3 

DES  CSPACE  3.R-DH5  CSPACE  3DURCH"  :  PRINT  <052> 

506  PRINT  T AB  <3)  ;  "  1  :  CSPACE  3  DAT A  CSF'ACEOZE  I  LEN 

CSPACE IE INLESEN"  <1B2> 

510  PRINT  TAB (S) ; "2: CSPACE! PROGRAMMESPACE 3VON 
CSPACE 3  BI SK"  <01 0> 

520  PRINT  TAB (8) ; "3: CSPACE IÜEXMONI TOR"  <032> 

Listing  »ROM-Change« 


530  PRINT  TAB  (8)  ;  "4:  ESF'ACE  3£I  GENEN  CSPACE  3 

J10NIT0R"  <193> 

540  PRINT  TAB (8) ; "5: CSPACE 3SBSPEICHERN CSPACE 3 

DES  CSPACE  3NEUEN  CSPACE  3&BÜS "  < 1 0 1 > 

545  PRINT  TAB <S) ; "6: CSPACE 3LADEN CSPACE 3VON 

C SPACE 3GEAENDERTEM  CSPACE 3  ROJ1"  < 02 1  > 

546  PRINT  TAB(S)  ;  "7:  CSPACE  3.5.TARTEN CSPACE  3DES 

C SPACE 3 NEUEN CSPACE 3 £&flS"  <106> 

547  PRINT  TAB(S) ; "8:  CSPACE 3 PROGRAMM CSPACE3 

BEENDEN"  <137> 


550  PRINT:  PR  INT:  PRINT  TAB  (10)  ;  "JÜTTE  ESF'ACE  3 


WAEHLEN CSPACE 3SIE ! "  <017> 

560  GET  AT: IF  A$=" "THEN  560  <154> 

570  I=VAL(A$) : IF  I<1  OR  I >8  THEN  560  <200> 

575  POKE  53247,33: POKE  53280,2  <160> 

580  ON  I  GOTO  1000,2000,3000,4000,5000,6000, 

2500,3500  <001 > 

999  REM  DATA  ZEILEN  EINLESEN  <173> 

1000  PRINT" CCLEAR3" : PRINT: PRINT  TAB ( 1 0 ); "LESEN 
CSPACE  3 DER CSPACE  3 SATA— TEILEN" : PRINT: PRINT 

<051  > 

1010  GOSUB  1600  <  073 > 

1020  READ  A: IF  A=0  THEN  500  <235> 

1030  READ  B: REM  ANZAHL  DER  BYTES  <188> 

1032  READ  PI: REM  PRUEFSUMME  <230> 

1033  P2=0  < 1 13> 

1035  D=A: GOSUB  1300: PRINT"*" ; A$; D=A+B-1 

: GÜSUB  1300: PRINT"*" ;A*;  <109> 

1040  FOR  I=A— OF  TO  A-OF-l+B  <254> 

1050  READ  D :  F'OKE  I,D  <115> 

1051  P2=P2+D: IF  P2 >65535  THEN  P2=P2-65536  <212> 

1053  NEXT  I  <236> 

1055  IF  P20P1  THEN  1070  <  132> 

1057  PRINT" CSPACE330K"  <156> 

1060  GOTO  1020  < 1 1 6  > 

1070  PR INT "PRUEFSUMME CSPACE 3FALSCH: CSPACE3";F2 

<  1 92  > 

1080  GET  A*:IF  Af=" "THEN  1080  <210> 

1090  GOTO  1020  < 146> 
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1100  STOF  <224> 

1130  PRINT" CCLEAR 1": PR INT  TAB (8) ; "PROGRAMM 
CSPACE  DZUM CSPACE ]  SENDERN  CSPACE ]DES " : PRINT 
<065> 

1 1 40  PR I NT  TAB (12)" BFTR I EBSSYSTEMS " : PR I NT : PR I NT 
<050> 

1 150  PRINT" CSPACE  3GESCHR I EBEN  CSPACE  3VON  CSPACE 1 
I,RNST CSPACE USCHOEBERL CSPACE I C19B4)  "  <187> 


1160 

RETURN 

<026> 

1  199 

REM  HEX  IM  DEZ  UMWANDLUNG 

<  1 63  > 

1200 

D=0: FOR  J1=0  TO  LEN(A*)-1 

<  235  > 

1210 

B=ASC  £ R I GHT * ( A* , 1 ) ) : A*=LEFT* ( A*, LEN ( A*> -1 ) 

1220 

<245> 

B=B— 48: IF  B>9  THEN  B=B-7 

<  1 97  > 

1230 

IF  B< 0  OR  B > 1 6  THEN  1280 

<  254  > 

1240 

D=D+B*16TJ 1 

<0N2> 

1250 

NEXT  J1 

/  \ 

1260 

RETURN 

<126> 

1280 

D=-l: RETURN 

<  1 59  > 

1299 

REM  DEZ  IN  HEX 

<006> 

1  300 

J2=INT(L0G(D> /LOG (16) ) : fi*=" " 

<0S4> 

1310 

FOR  J1=J2  TO  0  STEP— 1 

<  1 66  > 

1320 

K 1= I NT ( D/ 1 6 t J 1 ) : D=D— K 1 * 1 6 1 J 1 

<  1 35  > 

1330 

IF  Kl >9  THEN  Kl=Kl+7 

<090> 

1340 

K 1 =K 1 +48 : A*= A*+CHR* (Kl) 

<245> 

1350 

NEXT  J1 

<072> 

1360 

RETURN 

<  227  > 

1600  RESTORE: K=328: FOR  I=K  TO  K+32: READ  A 
: POKE  I , A: NEXT  I 

<  056  > 

022> 

<052> 

<  19S> 

<  124> 

<  045  > 

<  1 35  > 
<190> 
<101> 
<03S> 


<075> 


1610  DATA  120,160,0,132,251,132,253,169,224,133, 
252,169,96,133,254, 177,251,145  <241 > 

1620  DATA  253,200,208,249,230,252,230,254,165, 
252,201,0,208,239,96  C167> 

1630  RETURN  <242> 

1999  REM  PROGRAMM  VON  DISK  IN  ROM  EINFLIEGEN 

<003> 

2000  GOSUB  1130: PRINT  <252 > 

2010  PRINT  TAB(2)  ;  "UNFUEGENCSPACEIEINESCSPACEI 

.PROGRAMMS  CSPACE  I  VON  CSPACE  I£I  SK  "  <  0S7  > 

2020  PRINT: PRINT: PRINT: INPUT "FILENAME: " ;  A*  <200  > 
2030  OPEN  1 ,8,0, A* 

2033  GOSUB  6100: I=ASC (A*> : GOSUB  6100 
: I=I+256*ASC (Af ) : IF  ST>0  THEN  6200 

2035  F'R I  NT  :  PR  I  NT  "  FOUND  C SPACE  1 "  ;  A* 

2036  IF  KAN  THEN  2110 
2040  GET#1 ,A*: A*=A*+CHR* (0) 

2050  IF  ST>0  THEN  2100 

2060  POKE  I-OF,ASC ( A* ): 1=1+1: GOTO  2040 
2100  CLOSE  1 : GOTO  500 

2109  REM  PROGRAMM  NICHT  IN  ROMBEREICH 

2110  PRINT"  JLQJ1C SPACE IVON CSPACE ]*"  ;  :  D=AN 
.-GOSUB  1300:  PRINT  A$ D=AN+81 91 
: GOSUB  1300: PRINT  A* 

2120  F’RI  NT  ”  5.T  ART  ADRESSE  CSPACE  ]DES  CSPACE  I 

PROGRAMMS CSPACE IBEI [SPACE]*"; :D=I: GOSUB  1300 
SPRINT  A*  <193> 

2130  INPUT"MEUE CSPACE] STARTADRESSE CSPACE] (MUSS 
CSPACE  ]  I M  CSPACE  ]£J3J1-,1ERE I  CH  CSPACE2  ]L I EGEN 
: " ; A*  < 134> 

2140  GOSUB  1200: IF  D=-l  OR  D<AN  THEN  2100  <235> 

2150  I=D: GOTO  2040  <054> 

2499  REM  ROM  STARTEN  <106> 

2500  GOSUB  1600  <033> 

2510  POKE  K+8, 160: POKE  K+29,0  <235> 

2515  POKE  K+12,160  <142> 

2520  SYS  K  <  202  > 

2525  K=828  <133> 

2530  POKE  K+8, 96  <074> 

2540  POKE  K+29, 12B  <179> 

2550  POKE  K+12, INT (AN/256)  <249> 

2560  SYS  K  <243> 

2565  PRINT ” CCLEAR ] " : PR I NT" >MEUES CSPACE ]&OM 

CSPACE ] AKT I V I ERT " : PR I NT  <200> 

2570  POKE  1,53: INFUT“£ESET CSPACE ]<J/N) AS 

: IF  AS="J"THEN  SYS  64738  <233> 

2580  GOTO  500  <060> 

2999  REM  MONITOR  FUER  EINZELNE  SPEICHERSTELLEN 

<  1 1  1  > 

3000  PR I NT " CCLEAR ] " : PR I NT " ***  CSPACE ] flON I TOR 

CSPACE ]***" :  PRINT :  PRINT  <148> 

3010  I  NF'UT  "  5.T  ART  ADRESSE :  "  ;  AS :  GOSUB  1200  <015> 

3020  I=D-OF : IF  I=-l  THEN  3010  <093> 

3030  D=I+OF : GOSUB  1300:PRINT  AS CSPACE ]" ; 

: D=PEEK ( I ): GOSUB  1300: PRINT  AS; " CSPACE4 ]” ; 
<229  > 


3040  I  NF'UT  "  :  "  ;  AS  <142> 

3050  IF  AS=GHRS (13) THEN  3070  <132> 

3060  GOSUB  1200: IF  D=-l  OR  D>255  THEN  3090  <154> 

3065  POKE  I ,D  <084> 

3070  1=1+1: GOTO  3030  <177> 

3090  PRINT" ENDECSPACE] (J/N) "  <175> 

3095  GET  AS:IF  AS="N"THEN  3010  <002> 

3096  IF  A*<>"J"THEN  3095  < 126> 

3100  GOTO  500  <070> 

3500  POKE  53247,0: END  <107> 

3599  REM  WERTE  FUER  KERNAL  RAM  <002> 

3600  AN=  1 4*4096 :  EM=0:  OF=B*4096 : POKE  53246,0 

: RETURN  <035 > 

3699  REM  WERTE  FUER  BASIC  ROM  <025> 

3700  AN=1 0*4096: EN=12*4096: OF=4*4096 

: POKE  53246 , 1 : RETURN  < 050  > 

3999  REM  EIGENER  MONITOR  <100> 

4000  PRINT" CCLEAR]" : PRINT: PRINT" CSPACE7 ]£I GENER 

CSPACE ]ÜDNITOR"  <048> 

4010  PRINT: PRINT: INPUT" STARTADRESSE CSPACE ] (HEX) 

:  " ;  AS  <205 > 

4020  IF  LEN (AS) >4  THEN  4000  <023> 

4030  GOSUB  1200: IF  D=-l  THEN  4000  <031 > 

4040  SYS  D  < 1 85 > 

4050  GOTO  500  < 255 > 

4999  REM  ABSPEICHERN  DES  ROMS  <106> 

5000  GOSUB  1130: PRINT  <192> 

5010  PRINT  TAB  (7)  ;  "flBSF’EICHERN  CSPACE1DES  CSPACE  ] 

NEUEN  CSPACE  ]  R_OJ1S"  <124> 

5020  PRINT:  PRINT:  PRINT:  I NF'UT "£I LENAME :  "  ;  A*  <140> 
5030  OPEN  1,8, 1,A*  <219 > 

5035  PRINT:  F'RINT"SAVING  CSPACE]"  ;A*  <214> 

5040  PRINT#1  ,C'HR*  (0)  ;  CHR*  (96) ;  <253> 

5050  FOR  1=6*4096  TO  32767  <171> 

5060  F'RINT#!  ,  CHR*  (PEEK  <  I )  )  ;  :  NEXT  I  <123> 

5070  PRINTttl ,CHR*(AN-INT (AN/256) *256)  ;  <139> 

5080  PRINT#1 ,CHR* (AN/256)  <209> 

5090  CLOSE  1 : GOTO  500  <030> 

5999  REM  GEAENDERTES  ROM  LADEN  <142> 

6000  GOSUB  11 30: PR INT  <172> 

6010  fr i NT  TAB (10) ; "LADEN CSPACE ]E INES CSPACE] 

NEUEN  CSPACE  1R.OJ1S"  <106> 

6020  PRINT :  PRINT  :  PRINT :  INPUT  ".FILENAME  :  "  ;  A*  <120> 
6030  OPEN  1,8,0, A*  < 198> 

6040  GOSUB  6100: GOSUB  6100  <145> 

6042  IF  ST>0  THEN  6200  <051> 

6043  PRINT :  F'R  INT  "LOAD  ING  CSPACE  ]  "  ;  A*  <000> 

6050  FOR  1=6*4096  TO  32767  <151> 

6060  GETttl ,A*:A*=A*+CHR*(0)  <241 > 

6070  POKE  I , ASC ( A*) : NEXT  I  <090> 

6080  GOSUB  6100: AN=ASC(A*) : GOSUB  6100 

: AN=AN+256*ASC ( A* )  < 04 1 > 

6090  OF=AN-6*4096: EN=AN+B192: CLOSE  1  <174> 

6095  IF  EN>65535  THEN  EN=0  <217> 

6096  IF  AN< 14*4096  THEN  POKE  53246 , 1 : GOTO  500 

<  1  43> 


6097 

POKE  53246,0: GOTO  500 

<  055  > 

6100 

GET#1 ,A*: A*=A*+CHR*(0) : RETURN 

< 225 > 

6200 

CLOSE  1: PRINT 

<244> 

6210 

□PEN  1,8,15 

<032> 

6220 

IF  ST=64  THEN  6250 

<038  > 

6230 

GET  #  1 ,  A* :  F’R  INT  A*;:GOTO  6220 

<244> 

6250 

CLOSE  1 

<083> 

6260 

GET  A*:IF  A*=" "THEN  6260 

<039> 

6270 

GOTO  500 

<  1 80  > 

7990 

REM  AB  HIER  DATAS 

<  252  > 

8000 

DATA  64226,126,14014 

<209> 

8001 

DATA  232,134,198,201,133, 144,4,201 

,141,144, 

3,76,66,235, 157,119,2,72,152  < 150> 

8002  DATA  72, 160,0, 196,2,208,13, 1B5, 41 ,251 ,221 , 

119,2, 240 ,11, 200 ,192,176, 208  <  087  > 

8003  DATA  243,104,168,104,76,66,235,200,185,41, 

251,201,133,144,4,201,141,144  <140> 

8004  DATA  238,236,137,2,176,233,157,119,2,232, 

134,198,76,15,251 , 133,76,207  <080> 

8005  DATA  34,36,34,44,56,13,137,76,79,65,68,134, 

76,73,83,34,13,138,83,65,86  < 160> 

8006  DATA  69,135,82,85,78,13,139,83,89,33,136, 

63,70,82,69,40,48,41 , 13,140,33  <202> 

8007  DATA  89,83,54,52,55,51,56,13,133,136  <241> 

8010  DATA  60223,3,552  <016> 

8011  DATA  76,226,250  <227> 

10000  DATA  0  <234> 

Listing  »ROM-Change«  (Schluß) 


ne.de 

ne.net 
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Name 

Bild- 

num- 

mer 

Saugnäpfe 

J/N 

Dauerfeuer 

J/N 

Links- 

Rechts- 

*änder 

Richtungen 

Handhabung 

Standsicher¬ 

heit 

Arkade 

11 

N 

N 

L/R 

8 

2 

3 

Arkade  Professional 

12  o. 

N 

N 

L 

4/8 

3 

1 

Atari 

8 

N 

N 

R 

8 

2 

3 

Boss 

15 

N 

N 

L/R 

8 

2 

3 

Challenger 

1 

J 

J 

L/R 

8 

2 

3 

Competition  pro 

18 

N 

N 

L/R 

8 

2 

3 

Competition  pro 

16 

N 

N 

L/R 

8 

2 

3 

Commodore  VC  1311 

13 

N 

N 

L/R 

8 

4 

4 

Gun  Shot 

5 

J 

N 

L/R 

8 

2 

2 

Master  Shot 

14 

J 

J 

L/R 

8 

1 

1 

Wico  Three  Way  (1) 

6 

N 

N 

L/R 

8 

3 

2 

Wico  Three  Way  (2) 

9 

N 

N 

L/R 

8 

3 

2 

Power  Stick 

12  u. 

N 

N 

L/R 

4 

4 

— 

Quickshot  1 

7 

J 

N 

L/R 

8 

2 

1 

Quickshot  2 

17 

J 

J 

L/R 

8 

1 

1 

Tober 

19 

N 

N 

L/R 

8 

3 

3 

Atari  Super  Controller 

3 

N 

N 

L/R 

8 

2 

2 

!  Superstick 

10 

N 

N 

L/R 

8 

3 

4 

Erlkönig  (Prototyp) 

2 

J 

N 

L/R 

8 

1 

— 

Sony 

4 

N 

N 

L/R 

8 

1 

1 
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Das  Angebot  auf  dem  Joystick-Markt  ist  groß.  Doch  all¬ 
zuoft  vergeht  bei  der  ersten  Belastungsprobe  die  Lust 
am  »Lustknüppel«.  Wir  sind  der  Frage  nachgegangen, 
welcher  Joystick  nun  der  beste  ist.  Dabei  wurden 
20  Joysticks  auf  Herz  und  Nieren  gerüft. 


Gespannte  Gesichter.  Die  Spielfi¬ 
gur  läuft  über  den  Bildschirm. 
Nur  noch  eine  Gefahr  ist  zu 
überstehen.  Endlich,  endlich  haben 
wir  die  Lösung  vor  Augen.  Kurz  nach 
links,  dann  rechts  und  ...  knacks.  Das 
typische  Geräusch  eines  brechen¬ 
den  Joysticks  ist  zu  hören. 

Nur  eine  Szene  aus  unserem  Joy¬ 
sticktest.  Nicht  immer  spielt  man  mit 
einem  Joystick,  der  genausoviel  aus¬ 
hält,  wie  es  in  der  Werbung  verspro¬ 
chen  wird  und  man  es  sich  wünscht. 

Spiele  wie  »Soccer«  und  »Summer 
Games«  haben  schon  manchem  Joy¬ 
stick  das  »Leben«  gekostet. 


2 


Stabilität 

Leicht- 

Schwer¬ 

gängig 

Feuerknopf 

Boden/Griff 

Schalt¬ 

mechanik 

Bemerkung 

Test  gesamt 

Preis 

2 

mittel 

1B 

Mikroschalter 

nur  drei  Standfüße 

gut 

69- 

2 

leicht 

2B 

Mikroschalter 

schlecht  für  Rechtshänder 

empfehlens¬ 

wert 

139- 

2 

mittel 

1B 

Folienkontakt 

— 

befriedigend 

39- 

2 

leicht 

IG 

Metallstreifen 

drehbarer  Griff 

gut 

50- 

2 

mittel 

2G 

Metallstreifen 

— 

gut 

48,- 

1 

mittel 

2B 

Metallstreifen 

sehr  stabil 

gut 

69  — 

1 

mittel 

2B 

Mikroschalter 

sehr  stabil 

empfehlens¬ 

wert 

79  — 

6 

mittel 

1B 

Folienkontakt 

zerbrechlich 

mangelhaft 

39,— 

2 

leicht 

2G 

Metallstreifen 

— 

gut 

39,- 

2 

leicht 

2G 

Metallstreifen 

besonders  Standsicher 

empfehlens¬ 

wert 

49,- 

1 

leicht 

IG  1B 
umschaltbar 

Metallstreifen 

austauschbarer  Griff 

gut 

99  — 

1 

leicht 

IG  1B 

umschaltbar 

Metallstreifen 

austauschbarer  Griff 

gut 

99,- 

4 

mittel 

2B 

Gummifolie 

zu  klein  für 
längeres  Spielen 

mangelhaft 

59,- 

2 

leicht 

1B  IG 

Folienkontakt 

— 

gut 

29- 

2 

mittel 

2G 

Metallstreifen 

Dauerfeuer  kann  unabsichtlich 
eingeschaltet  werden 

empfehlens¬ 

wert 

39,- 

2 

schwer 

1B  IG 

Folienkontakt 

Kabel  kann  im  Fuß 
aufgewickelt  werden 

befriedigend 

33,90 

1 

mittel 

2B 

Folienkontakt 

Ist  sehr  gut  in  der 

Hand  zu  halten 

gut 

59,- 

3 

sehr  leicht 

IG 

Metallstreifen 

zu  leichtgängig,  daher  nicht 
besonders  Richtungsgenau 

befriedigend 

— 

1 

leicht 

2G 

auf  Wunsch 
nicht  erwähnt 

— 

empfehlens¬ 

wert 

49,- 

2 

sehr  leicht 

2G 

Mikroschalter 

Resetschalter-Steuerung 
durch  Handauflage 

empfehlens¬ 

wert 

69,- 
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Somit  haben  wir  schon  das  erste 
und  wohl  auch  wichtigste  Kriterium 
in  der  Beurteilung  eines  Joysticks: 
die  Stabilität  und  Verarbeitung. 

Der  zweite,  nicht  minder  wichtige 
Beurteilungspunkt:  die  Handha¬ 
bung  und  die  Standfestigkeit.  Zur 
Standfestigkeit  sei  nur  erwähnt: 
Auch  Saugnäpfe  halten  nicht  immer, 
was  sie  versprechen.  Das  vierfache 
»Plopp«,  wenn  sich  der  Joystick  von 
der  Tischplatte  löst,  war  auch  mehr 
als  einmal  bei  uns  zu  hören. 


ben.  Dauerfeuer  und  Reset-Knopf 
könnten  auch  dabei  sein.  Ob  nun 
Saugnäpfe  oder  »Joystick  ohne  Bo¬ 
den«,  gefallen  soll  er  natürlich  auch. 

Wir  halten  sechs  Joysticks  für 
empfehlenswert,  acht  für  gut,  drei 
für  befriedigend  und  zwei  für  man¬ 
gelhaft. 

Plant  man  die  Anschaffung  eines 
Joysticks,  so  sollte  man  auf  jeden  Fall 
selbst  ausprobieren,  »seinen«  Joy¬ 
stick  herauszufinden.  Unsere  Ttestta- 


Bewährungsprobe 


Nach  dem  Blick  in  das  Innenleben 
wurden  die  Joysticks  an  unsere  Te¬ 
ster  gegeben.  Getestet  wurde  mit 
den  Spielen  »Soccer«,  »Summer  Ga¬ 
mes«  und  »Zeppelin«.  Die  ersten  bei¬ 
den  Spiele  stellten  sich  als  wahre 
»Joystick-Killer«  heraus,  das  dritte 
aber  war  eine  Herausforderung  an 


die  Richtungsgenauigkeit.  Auf 
Richtungs-  und  Punktgenauigkeit 
kommt  es  auch  in  Zeichenprogram¬ 
men  an.  Nicht  immer  nützt  Finger¬ 
spitzengefühl.  So  wurde  auch  die 
Verwendungsfähigkeit  auf  diesem 
Gebiet  überprüft. 

Beurteilt  wurden  außerdem  die 
allgemeine  Handhabung,  die  Stand¬ 
sicherheit  und  die  Stabilität.  Die  Te¬ 
ster  durften  Noten  von  1  bis  6  verge¬ 
ben. 

Uns  standen  bei  dem  Blick  ins  In¬ 
nenleben  einige  Überaschungen 
bevor.  Es  ist  verblüffend  und  er¬ 
schreckend,  wie  primitiv  und  repa¬ 
raturanfällig  manche  Joysticks  auf¬ 
gebaut  sind.  So  wurde  die  Mecha¬ 
nik  in  die  Wertung  mit  einbezogen. 
Mikroschalter  erlauben  eine  hohe 
Richtungsgenauigkeit  und  sind  sehr 
stabil.  Deshalb  wurden  diese  Schal¬ 
ter  von  uns  mit  1  bewertet.  Mit  einer 
2  wurden  Metallstreifen-Schalter 
bewertet.  Folien-  und  Gummischal- 
ter  wurden  wegen  ihrer  meist 
schlechten  Qualität  in  der  Genauig¬ 
keit  und  ihrer  Reparaturanfälligkeit 
mit  4  und  5  beurteüt.  Die  Note  ging 

36 


normal  in  die  Wertung  ein,  denn 
auch  ein  von  der  Technik  mittelmä¬ 
ßiger  Joystick  kann  seine  Vorteile 
haben. 


»Der«  Joystick  überhaupt! 


Alle  von  uns  haben  ihren  »Joystick- 
Traum«.  Jeder  von  uns  stellt  an  einen 
Joystick  spezielle  Anforderungen. 
Gut  beweglich  muß  er  sein,  und 
leicht  zu  handhaben.  Der  Feuer¬ 
knopf  sollte  einen  Druckpunkt  ha¬ 


beile  soll  nur  eine  Hilfestellung  auf 
diesem  fast  unüberschaubaren 
Markt  sein. 

Kaum  ein  Händler  wird  erlauben, 
daß  man  einen  Joystick  stundenlang 
ausprobiert  oder  gar  aufschraubt. 

Die  Gesamtnote  des  Tests  ergibt 
sich  aus  den  einzelnen  Zensuren. 
Alle  einzelnen  Bewertungen  sind 
gleich  gewichtet.  Zieht  man  die  No¬ 
ten  zusammen,  so  hat  man  zwei  ein¬ 
deutige  Sieger.  Doch  testen  Sie  nur 
selbst.  Sind  es  auch  Ihre  Sieger? 

(rg) 
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Wie  die  Königstochter  im  Mär¬ 
chen,  so  bedarf  es  bei  der  Pro¬ 
grammierung  des  Commodo- 
re  64  fast  eines  Prinzen,  um  seine 
schlummernden  Fähigkeiten  zu 
wecken.  Unser  Prinz  heißt  Graphic- 
Basic  und  kommt  von  HESware. 

Haben  Sie  sich  in  Anbetracht  ei¬ 
nes  perfekten  Spielprogramms, 
schon  gefragt:  Wie  machen  die  das? 
Die  Antwort  ist  relativ  einfach,  denn 
durch  konsequentes  Ausnutzen  al¬ 
ler  verfügbaren  Hilfsroutinen  und 
vieler  Programmiertricks  gelingen 
solche  Meisterstücke.  Einige  dieser 
Tricks  und  Hüfen  sind  m  Graphic- 
Basic  zusammengefaßt.  Das  Resul¬ 
tat  sind  Graphic-Basic-Programme, 
einfach  programmiert,  kurz  und  lei¬ 
stungsfähig.  Das  Beste  aber  ist,  daß 
kaum  jemand  den  Unterschied  zu 
reinen  Maschinenprogrammen  fest¬ 
stellen  kann.  Von  der  Leistungsfä¬ 
higkeit  dieser  zirka  90  Mark  teuren 
Befehlserweiterung  kann  man  sich 
sofort  überzeugen,  denn  viele  Bei¬ 
spielprogramme  (Bild  1  und  2)  wer¬ 
den  auf  der  Diskette  mitgeliefert. 
Damit  die  Lektüre  der  Anleitung  (in 
Buchform,  116  Seiten)  etwas  ab¬ 
wechslungsreicher  wird,  findet  der 
Anwender  noch  zusätzliche  Beispie¬ 
le  zum  Abtippen  im  Handbuch.  Auf 
diese  Weise  bleibt  das  gerade  ge¬ 
lernte  nicht  nur  Theorie,  sondern 
kann  am  Bildschirm  mit  eigenen  Au¬ 
gen  verfolgt  werden. 


Eines  sei  vorweggenommen,  der 
Befehlssatz  des  »Graphic-Basic«  läßt 
kaum  einen  Wunsch  offen.  Verges¬ 
sen  sie  den  POKE-Befehl,  denn  von 
der  einfachen  Farbänderung  bis  zur 
imposantesten  Grafik-  und  Tonpro¬ 
grammierung,  stehen  für  alle 
Zwecke  eigene  Befehle  zur  Verfü¬ 
gung.  Einfach  und  einprägsam, 
aber  leistungsfähig,  das  sind  die 
»Graphic-Basic«-Befehle.  Das  gilt 
auch  für  die  Spnteprogrammie- 
rung.  Denn  hier  haben  sich  die  Pro¬ 
grammierer  selbst  übertroffen.  Be¬ 
reits  die  Spriteerstellung  geht  mit 
dem  eingebauten  Sprite-Editor  fast 
wie  von  selbst,  der  Eingabekomfort 
ist  beispielhaft.  So  ist  beispielsweise 
das  Sprite,  das  gerade  entworfen 
wird,  in  wirklicher  Größe,  in  Y- 
Richtung  und  in  X-Richtung  vergrö¬ 
ßert,  abgebildet. 

Ebenso  besteht  die  Möglichkeit, 
die  ganze  24x21  Punktmatrix  um  be¬ 
liebig  viele  Spalten  beziehungswei¬ 
se  Reihen  zu  verschieben.  Wer 
schon  früher  mit  ähnlichen  Pro¬ 
grammen  gearbeitet  hat,  wird  die¬ 


sen  Vorteil  zu  schätzen  wissen. 
Selbstverständlich  können  sowohl 
Single-  als  auch  Multicolorsprites 
definiert  werden,  die  Vorder  und 
Hintergrundabfrage,  sowie  die  Kolli¬ 
sionserkennung  sind  eingebaut.  Ein 
Sprite-Editor  wie  dieser  wird  noch 
lange  Zeit  seinesgleichen  suchen. 

Doch  was  kann  man  nun  mit  sei¬ 
nem  eben  erstellten  Sprite- 
Kunstwerk  alles  anfangen?  Sehr 
viel,  denn  dem  Benutzer  steht  eine 
Vielzahl  von  neuen,  sinnvollen  Be¬ 
fehlen  zur  Verfügung.  Diese  Befehle 
zeichnen  sich  durch  eine  interes¬ 
sante  Besonderheit  aus,  denn  sie 
sind  allesamt  Interrupt-gesteuert. 
Das  heißt,  Sprites  bewegen  sich 
nach  einmaligem  Aufruf  selbstän¬ 
dig.  Der  Effekt  ist,  daß  jedes  Ba- 
sic-Programm  mit  höherer  Ge¬ 
schwindigkeit  weiterläuft.  Mancher 
Befehlserweiterung  geht  hier  schon 
langsam  die  »Luft«  aus,  nicht  so 
»Graphic-Basic«.  Diese  Supererwei¬ 
terung  sammelt  weitere  Pluspunkte, 
etwa  durch  die  Befehle  »Copy  Hires 
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■1  Oxford  -  Pascal  ■ 
Für  den  Commodore 

Dieser  leistungsfähige  Compiler  unterstützt  den  vollen 
Pascal-Standard  —  und  noch  etwas  mehr. 


Schon  der  erste  Blick  in  das 
Handbuch  zeigt  es:  Oxford- 
Pascal  ist  im  Wesentlichen  das 
gute  alte  TCL-Pascal,  das  es  auch 
schon  für  die  CBM-Computer  gibt. 

Oxford-Pascal  wird  auf  einer  Dis¬ 
kette  zusammen  mit  einem  Hand¬ 
buch  in  englischer  Sprache  gelie¬ 
fert  (eine  Kassettenversion  soll  dem¬ 
nächst  folgen).  Der  Text  des  Hand¬ 
buches  sowie  die  abgedruckten 
Beispielprogramme  sind  überwie¬ 
gend  wörtlich  vom  TCL-Pascal  über¬ 
nommen.  Neu  am  Oxford-Pascal 
sind  Erweiterungen  für  Grafik,  Ton 
und  Farbe  speziell  für  den  C  64. 

Nach  einem  recht  langen  Lade¬ 
vorgang  meldet  sich  das  System 
schließlich  mit  einem  »READY«. 
Oxford-Pascal  ist  im  Gegensatz  zum 
UCSD-Pascal  nicht  menügesteuert, 
was  in  meinen  Augen  insbesondere 
für  den  Computeranfänger  ein  we¬ 
sentlicher  Vorteil  ist. 

Auf  Nachfrage  teilt  das  System 
mit,  daß  etwa  13  KByte  freier  Spei¬ 
cherplatz  zur  Verfügung  steht.  Das 
ist  beachtlich:  TCL-Pascal  auf  dem 
CBM  3032  bietet  nur  etwas  mehr  als 
7  KByte  an.  Der  Compiler  und  der 
Executer  sind  resident,  es  kann  also 
gleich  losgehen  mit  den  ersten  Geh¬ 
versuchen.  Programm  eintippen 
(mit  Zeilennummern,  damit  man 
leichter  editieren  kann),  auf  »L«  tip¬ 
pen  und  sich  das  Programm  lang¬ 
sam  vorlesen  lassen.  Dabei  findet 
eine  Syntaxprüfung  und  eine  Com¬ 
pilierung  in  den  P-Code  statt,  Mit 
»RUN«  kann  dann  gestartet  werden. 
Währenddessen  findet  kein  Rück¬ 
griff  auf  die  Floppy  statt,  dadurch  ist 
das  System  relativ  schnell.  Sollte  ein 
Fehler  im  Programm  sein,  wird  eine 
Fehlermeldung  mit  Nummer  und 
Klartext  eingefügt.  Die  Eingabe  von 
»P«  statt  »L«  bringt  Listing  und  Fehler¬ 
meldungen  auf  den  Drucker.  Edi¬ 
tierkommandos  wie  CHANGE, 
FIND  und  DELETE  vereinfachen 
Fehlersuche  und  Programmände¬ 
rungen. 

Leider  vermißt  man  eine  DOS- 
Unterstützung.  Das  Inhaltsverzeich¬ 


nis  ist  nur  mit  »LOAD"$",8«  zu  errei¬ 
chen,  dabei  geht  ein  eventuell  im 
Speicher  vorhandenes  Programm, 
das  nicht  vorher  mit  PUT  auf  der  Dis¬ 
kette  abgespeichert  wurde,  verlo¬ 
ren. 

Was  tut  man  jetzt,  wenn  13  KByte 
nicht  ausreichen?  Oxford-Pascal 
bietet  die  Möglichkeit,  den  residen¬ 
ten  Compiler  aufzugeben.  Damit 
stehen  dann  etwa  32  KByte  nur  für 
den  Programmquelltext  zur  Verfü¬ 
gung.  Das  Programm  muß  nach  Fer¬ 
tigstellung  abgespeichert  werden, 
dann  wird  mit  »COMP«  der  Diskcom¬ 
piler  aufgerufen,  der  ein  Object-File 
erstellt,  das  mit  »EX«  ausgeführt  wer¬ 
den  kann.  Diese  Prozedur  ist  typisch 
englisch:  Teatime  ist  ang:  sagt,  Die 
Zeit  ist  ausreichend.  Interessanter¬ 
weise  ist  der  P-Code  von  TCL-Pascal 
mit  dem  von  Oxford-Pascal  auf¬ 
wärtskompatibel.  Ich  konnte  mein 
Stundenplanprogramm,  das  vom 
CBM  3032  compiliert  wurde,  sofort 
auf  dem  C  64  laufen  lassen. 

Die  Abwärtskompatibilität  ist  na¬ 
türlich  nicht  gewährleistet.  Mit  eini¬ 
gen  Spezialitäten  wurde  den  Mög¬ 
lichkeiten  des  Commodore  64  Rech¬ 
nung  getragen.  Mit  BORDER  wird 
die  Rahmenfarbe  definiert,  mit 
SCREEN  die  Bildschirmfarbe,  mit 
PEN  die  Schreibfarbe.  PAPER  und 
INC  setzen  die  Farben  für  die  hoch¬ 
auflösende  Grafik  (der  Multicolor- 
modus  wird  nicht  unterstützt),  HIRES 
(1)  schaltet  die  Grafik  ein,  HIRES  (0) 
führt  in  den  Textmodus  zurück. 
WINDOW  teilt  den  Bildschirm  in  ei¬ 
nen  Grafik-  und  einen  Textteil  ein. 
EXAMINE  (X,Y)  dient  zum  Testen, 
ob  der  Punkt  (x,y)  gesetzt  ist.  Für  al¬ 
les  weitere  ist  der  PLOT-Befehl  zu¬ 
ständig.  PLOT  (F,X1,Y1,X2,Y2)  hat  in 
Abhängigkeit  von  F  folgende  Aufga¬ 
ben: 

Ist  F  =  0,  so  wird  der  Hintergrund  auf 

die  PAPER-Farbe  gesetzt, 

ist  F  =  1,  so  wird  die  Grafik  gelöscht, 

ist  F  =  2,  so  wird  eine  Linie  von  (XI, Yl) 

nach  (X2.Y2)  gezeichnet, 

ist  F  =  3,  so  wird  diese  Lime  gelöscht, 

ist  F  =  4,  so  wird  das  Gebiet  um 


(XI, Yl)  gefüllt, 

ist  F  =  5,  so  wird  dieses  Gebiet  ge¬ 
löscht. 

Für  das  vollständige  Löschen  der 
Grafik  ist  also  die  Anweisungsse¬ 
quenz  PLOT  (0,0, 0,0,0);  PLOT 
(1,0, 0,0,0)  notwendig.  Man  beachte, 
daß  von  den  neun  Nullen  acht  ledig¬ 
lich  aus  formalen  Gründen  angege¬ 
ben  werden  müssen.  Der  Pascal¬ 
ästhetiker  wird  dabei  ein  ungutes 
Gefühl  haben.  Durch  den  gewiß  lo¬ 
benswerten  Versuch,  die  Anzahl 
der  Spezialitäten  gering  zu  halten, 
leidet  die  Selbstdokumentation 
doch  erheblich. 

Immerhin  braucht  sich  der  Pro¬ 
grammierer  nicht  so  viele  neue  Vo¬ 
kabeln  zu  merken.  Es  ist  möglich,  im 
PLOT-Befehl  x-Werte  zwischen  0 
und  255  sowie  y-Werte  zwischen  0 
und  199  anzugeben.  Da  der  Bild¬ 
schirm  aber  320  Pixel  breit  ist,  bleibt 
rechts  ein  Streifen,  auf  den  man 
nicht  zugreifen  kann. 

Falls  eine  Darstellung  von  Text 
und  Grafik  gleichzeitig  gewünscht 
wird  (ein  Einblenden  von  Buchsta¬ 
ben  in  die  Grafik  ist  nicht  vorgese¬ 
hen),  so  wird  man  mit  dem 
WINDOW-Kommando,  so  nützlich  es 
auch  ist,  nicht  so  ganz  glücklich.  Da 
die  Umsteuerung  des  Bildschirms 
durch  den  Interrupt  erfolgt,  flackert 
er  bei  Diskettenzugriffen  erheblich. 

So  mager  und  ungeschickt  die 
Grafik  auch  ausgestattet  ist,  so  voll¬ 
ständig  ist  der  von  Wirth  geforderte 
Sprachumfang.  Man  wird  nichts  ver¬ 
missen.  Hier  zeigt  sich  die  Abstam¬ 
mung  vom  TCL-Pascal  mit  allen  Vor¬ 
teilen.  Erwähnenswert  ist  auch,  daß 
einige  der  von  mir  im  Artikel  »Für 
Schulen  gerade  richtig«  (Computer- 
joumal  Januar/Februar  1983)  mo¬ 
nierten  Fehler  beseitigt  sind.  File- 
Identifier  können  jetzt  als  VAR- 
Parameter  an  Prozeduren  und  Funk¬ 
tionen  übergeben  werden  (übri¬ 
gens:  im  Apple-UCSD-Pascal  geht 
das  nicht  einmal  mit  Funktionsna¬ 
men  und  trotzdem  gibt  es  Schulen, 
die  es  im  Unterricht  verwenden), 
und  Mengen,  die  Bestandteile  eines 
Records  sind,  werden  jetzt  unter  der 
WITH-Anweisung  korrekt  bearbei¬ 
tet.  Vermutlich  hat  es  schon  TCL- 
Versionen  gegeben,  die  diese  Feh¬ 
ler  nicht  mehr  hatten,  und  dies  wur¬ 
de  einfach  übernommen. 

Zusammenfassend  muß  festge¬ 
stellt  werden,  daß  man  hier  für  199 
Mark  ein  vollwertiges  Pascal- 
System  in  der  Hand  hat,  das  sowohl 
dem  Lernenden  als  auch  dem  An¬ 
wender  sehr  viel  zu  bieten  hat. 

(Norbert  Stüven/ev) 

Info:  Vertrieb  in  Deutschland  durch  Computer  Plus  Soft 
GmbH,  Bahnstr,  22-26,  4220  Dinslaken 
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Die  Turbo-Pascal-Story 


Das  Super-Pascal  aus  der  Welt  der  CP/M-  und  MS- 
DOS-Personal  Computer  ist  jetzt  auch  für  den  C  64 
erhältlich  —  das  CP/M-Modul  macht’s  möglich. 


Um  Turbo  Pascal  auf  dem  C  64 
nutzen  zu  können,  sind  Floppy- 
Laufwerk  und  CP/M-Modul  not¬ 
wendige  Voraussetzungen.  Zum  op¬ 
timalen  Betneb  sollten  Grundkennt¬ 
nisse  von  CP/M-80,  der  Sprache 
Pascal  und  etwas  Z80-Maschinen- 
sprache  hinzukommen.  Benutzt  man 
einen  Drucker  mit  Centronics- 
Schnittstelle,  sollte  man  das  Be¬ 
triebssystem  des  C  64  und  6502  Ma¬ 
schinensprache  kennen,  denn  mit 
den  Interfaces,  die  Treibersoftware 
im  Bereich  C000  —  CFFF16  bereit¬ 
halten,  könnte  man  Überraschun¬ 
gen  erleben. 


Die  Lieferung 


Die  Sendung  von  Heimsoeth  Soft¬ 
ware,  München,  zum  Preis  von 
225,72  Mark,  enthält  die  Diskette 
und  ein  Handbuch  in  englischer 
Sprache  von  etwa  300  Seiten  Um¬ 
fang.  Das  Handbuch  versteht  sich 
nicht  als  Einführung  in  Pascal,  son¬ 
dern  beschreibt  in  drei  Teilen  den 
Gebrauch  des  Turbo  Systems,  die 
Besonderheiten  für  einzelne  Be¬ 
triebssysteme  wie  CP/M-80  und  86 
sowie  MS/PC-DOS,  die  Sprachele- 
mente  (Syntax)  von  Turbo  Pascal. 
Den  Schluß  bilden  recht  brauchba¬ 
re  Übersichten  zum  Pascal,  zum 
Compiler  und  den  Fehlermeldun¬ 
gen.  Die  Diskette  enthält  die  Files 

—  TURBO.COM,  also  den  eigentlichen 
Pascal-Compiler,  der  laut  STAT- 
Meldung  etwa  31  KByte  belegt, 

—  TURB0.0VR,  eine  Routine,  die  Pro- 
grammoverlaying  im  CP/M  ermög¬ 
licht.  Damit  können  auch  Program¬ 
me,  die  mehr  als  den  zur  Verfügung 
stehenden  Speicherplatz  (zwischen 
6 100  und  11 600  Byte  je  nach  Konfi¬ 
guration)  benötigen,  gefahren  wer¬ 
den. 

—  TURB0.MSG  ist  ein  Textfile,  das  die 
100  Fehlermeldungen  im  englischen 
Wortlaut  enthält.  TURBO. MSG  kann 
beim  Initialisieren  wahlweise  hinzu¬ 
geladen  werden  und  belegt  dann 
etwa  1 400  Byte.  Wer  will,  kann  sich 
alle  Fehlermeldungen  ins  Deutsche 
umschreiben.  Ohne  TURBO.MSG 
werden  nur  die  Nummern  der  Feh¬ 


ler  nach  dem  Compilieren  angege¬ 
ben.  Ihre  Bedeutung  schaut  man 
dann  im  Handbuch  nach.  Leider  ha¬ 
be  ich  noch  keine  Möglichkeit  ge¬ 
funden,  TURBO.MSG  zwischenzeit¬ 
lich  nachzuladen.  Man  muß  TUR- 
BO.COM  erst  mit  Q  verlassen  und 
dann  mit  »TURBO«  neu  laden. 

—  TLIST.COM  ist  eine  Druckerroutine, 
die  es  nicht  nur  ermöglicht,  Pascal- 
Quellcode  mit  vorgestellten  Zeilen¬ 
nummern  auszudrucken,  sondern 
auch  Pascal-Schlüsselwörter  durch 
Unterstreichen  zu  markieren. 

—  READ.ME  gibt  eine  Erklärung  dar¬ 
über,  warum  Run-Time-Fehler  in 
Overlay-Progiammen  nur  schwer  zu 
lokalisieren  sind,  falls  die  Overlay- 
Area  mehr  als  ein  Programm  ent¬ 
hält.  Die  beiden  Programme 
TINST.COM-und  CÄLC.PAS,  die  man 
auf  Lieferungen  für  andere  CP/M- 
Versionen  (zum  Beispiel  Osborne 
und  TA)  findet,  waren  nicht  vorhan¬ 
den.  Ich  erkläre  mir  dies  damit,  daß 
das  Demoprogramm  zur  Tabellen¬ 
kalkulation  nicht  in  den  Speicher 
des  C  64  paßt  und  das  Tastatur- 
Installationsprogramm  sich  für  die 
auf  den  C  64  zugeschnittene  Version 
von  selbst  erübrigt. 


Starten  des  Systems 

Wer  liest  sich,  wenn  er  Software 
erhält,  schon  ein  ganzes  Handbuch 
durch,  um  danach  erst  in  die  Praxis 
einzusteigen?  Also  schob  ich  nach 
einem  Blick  auf  die  ersten  paar  Sei¬ 
ten  des  Handbuches  mein  CP/M- 
Modul  ein,  legte  die  CP/M-Arbeits- 
diskette  ins  Laufwerk  und  zählte 
nach  »LOAD  ”CPM",  8«  und  »RUN« 
die  28  Sternchen,  bis  sich  CP/M  mel¬ 
det.  Dies  dauert  in  der  Regel  etwa 
eine  Minute,  kann  aber  auch  mal  ins 
Auge  gehen,  je  nachdem  wie  sorg¬ 
fältig  das  Modul  eingesteckt  wird. 
Nach  Meldung  des  CP/M  stieg  die 
Spannung,  denn  ich  legte  die  Turbo- 
Diskette  ein  und  tippte,  da  Turbo 
Pascal  als  CP/M-Kommando  gestar¬ 
tet  wird,  einfach  TURBO  ein.  Mit 
Freude  stellte  ich  fest,  daß  sich  das 
Laufwerk  in  Bewegung  setzte.  Mei¬ 
ne  Freude  wurde  etwas  getrübt, 


dauerte  der  Ladevorgang  doch  fast 
2  Minuten  (genauer  106  Sekunden). 
Damit  verbraucht  das  Hochfahren 
des  Systems  also  insgesamt  fast  3 
Minuten.  Dies  liegt  jedoch  nicht  am 
CP/M,  sondern  am  langsamen  Ar¬ 
beiten  des  1541-Laufwerks.  Immer¬ 
hin  wurde  mein  Warten  mit  einer 
recht  klaren  Turbo-Meldung  be¬ 
grüßt,  wobei  die  gelbe  Schrift  auf 
schwarzem  Hintergrund  sich  wohl¬ 
tuend  gegenüber  dem  Commodo- 
re-Blau  abhob. 

Nun  mußte  wieder  das  Handbuch 
zu  Rate  gezogen  werden,  denn  mit 
einer  simplen  Meldung  wollte  ich 
mich  nicht  begnügen.  Zumindest  ein 
kleines  Programm  sollte  laufen.  Al¬ 
so  wurde  nach  Eingabe  von  »N«  (kei¬ 
ne  Fehlermeldung  im  Wortlaut)  mit 
»W«  eine  Arbeitsdatei  (Workfile)  an¬ 
gelegt.  Dabei  muß  man  zunächst 
den  Namen  angeben.  Will  man  eine 
bereits  existierende  Datei  bearbei¬ 
ten,  so  wird  diese  jetzt  geladen. 
»DIR«  zeigt  das  Inhaltsverzeichnis 
der  Diskette.  Da  noch  kein  .PAS-File 
existierte,  erklärte  die  Meldung 
»NEW  FILE«,  daß  nun  eine  neue  Ar¬ 
beitsdatei  eingerichtet  wird.  Nach 
Eingabe  von  »E«  meldete  sich  ein  auf 
den  ersten  Blick  recht  komfortabler 
Editor,  der  eine  Teilmenge  der 
Wordstar-Befehle  bereithält  und  80 
Zeichen  pro  Zeile  unterstützt.  Leider 
wurde  die  Repeat-Funktion  für  die 
Corsorbewegungen  vergessen. 
Was  mich  zuerst  sehr  erschreckte, 
als  ich  daran  ging  zwei  Tippfehler 
meines  ersten  eingetippten  Pro¬ 
gramms  auszumerzen,  war  die  Tat¬ 
sache,  daß  der  Cursor  alle  Zeichen 
löschte,  die  er  überstrich.  War  damit 
meine  ganze  Eingabe  umsonst? 
Konnte  man  mit  Turbo  auf  dem  C  64 
gar  nicht  arbeiten?  Verwundert  hät¬ 
te  mich  das  nicht,  denn  bisher  findet 
man  ja  nur  ganz  wenig  CP/M-Softwa- 
re,  die  an  das  eigenwillige  CP/M 
des  C  64  zufriedenstellend  ange¬ 
paßt  ist.  Im  ersten  Moment  war  ich 
ratlos  und  las  wieder  Seite  um  Seite 
im  Handbuch.  Doch  dies  ist  allge¬ 
mein  gehalten  und  kann,  will  es 
nicht  zu  einer  Enzyklopädie  ausar¬ 
ten,  nicht  auf  alle  CP/M-fähigen 
Computer  eingehen. 

Also  raus  aus  dem  Editor  mit 
CTRL  K,  CTRL  D  und  mit  E  wieder 
hinein,  um  mein  Glück  aufs  Neue  zu 
probieren.  Aber,  welche  Freude! 
Da  stand  mein  Programm  TEST1,  so 
wie  ich  es  eingegeben  halte. 

Nun  war  die  Sache  wohl  klar; 
Beim  Schreiben  des  Editors  hat  man 
vermutlich  vergessen,  die  Routine 
BASIN  des  C  64-Betriebssystems 
sorgfältig  umzuschreiben.  Deshalb 
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wird  an  der  Stelle,  wo  die  Farbinfor¬ 
mation  des  Zeichens  unter  dem  Cur¬ 
sor  ms  Farb-RAM  geschrieben  wird 
(also  im  Bereich  $E45F-$EB7F),  ge¬ 
nau  dies  einfach  vergessen. 

Da  ich  eine  sehr  »frische«  Disk  der 
Version  2.0  A  vorliegen  hatte,  dürfte 
dieser  vom  Prinzip  her  kleine,  in  der 
Wirkung  aber  störende  Fehler,  in 
nächster  Zeit  behoben  sein.  Das 
dem  so  ist,  sicherte  auch  die  Mün¬ 
chener  Vertriebsfirma  telefonisch 
zu.  Eine  Weile  wird  man  dennoch 
warten  müssen,  denn  Kalifornien  ist 
immer  noch  weit  und  bis  die  Einga¬ 
ben  aus  der  »Provinz  BRD«  berück¬ 
sichtigt  werden,  wird  einige  Zeit  ins 
Land  gegangen  sein. 

Turbo  Pascal  lehnt  sich  eng  an 
den  durch  Jensen  und  Wirth  festge¬ 
legten  Pascal-Standard  an.  Folgen¬ 
de  Unterschiede,  die  wohl  nur  den 
eingefleischten  »Wirth  Pascaler«  tie¬ 
fer  berühren  werden,  sind  zu  ver¬ 
merken: 

—  Der  Programmkopf  ist  optional 
gestaltbar. 

—  Im  Deklarationsteil  muß  die  Rei¬ 
henfolge  und  Anzahl  der  Vereinba¬ 
rungen  nicht  sklavisch  eingehalten 
werden. 

—  Als  Label  können  Zahlen  und  Na¬ 
men  dienen. 

—  Die  verpönte  GOTO-Anweisung 
darf  nur  im  laufenden  Block  verwen¬ 
det  werden. 

—  Das  »Packen«  insgesamt  fehlt,  da 
der  Turbo-Compiler  ohnehin  einen 
sehr  dichten  Code  generiert.  Wäh¬ 
rend  PACKED  nichts  bewirkt,  rufen 
die  Prozeduren  PACK  und  UNPACK 
eine  Fehlermeldung  hervor. 

—  Wie  in  vielen  anderen  Versionen 
sind  auch  Funktionen  und  Prozedu¬ 
ren  als  Parameter  nicht  zu  gelassen. 

Hält  nun  der  Name  Turbo  das,  was 
er  verspricht?  Diese  Frage  kann 
man  in  zweierlei  Hinsicht  guten  Ge¬ 
wissens  bejahen:  Einerseits  ist  die 
Compilierzeit  auf  Grund  des  RAM- 
residenten  Compilers  erheblich 
schneller  als  bei  anderen,  ver¬ 
gleichbaren  Pascal-Systemen.  So  ist 
der  Turbo-Compiler  bis  zu  zehnmal 
schneller  als  der  2-Pass-Compiier 
des  Apple-UCSD-Systems.  Aber 
auch  die  Abarbeitung  von  Program¬ 
men  ist  auf  Grund  der  Tatsache,  daß 
der  Turbo-Compiler  nicht  nur  8080— 
Code  generiert,  sondern  auch  die 
vielen  zusätzlichen,  leistungsfähi¬ 
gen  Befehle  des  Z80  optimal  nutzt, 
meist  schneller  als  bei  vergleichba¬ 
ren  Systemen.  Daß  dabei  natürlich 
der  mit  nur  2  MHz  betriebene  Z80 
des  C  64  langsamer  ist  als  der  mit  4 
MHz  betriebene  Z80  anderer  CP/M- 
Computer,  liegt  auf  der  Hand. 


Wenn  man  nun  in  Pascal  arbeitet 
und  das  1541-Laufwerk  mal  nicht  be¬ 
nutzt,  kann  man  manchmal  verges¬ 
sen,  daß  man  eigentlich  vor  einem 
Computer  der  unteren  Preisklasse 
sitzt.  Dieses  Gefühl,  vor  einem  we¬ 
sentlich  teureren  Gerät  zu  sitzen, 
wird  durch  die  elfstellige  Rechen¬ 
genauigkeit  nur  noch  bestärkt.  So 
ergibt  1.0000001  27mal  mit  sich 
selbst  quadriert,  immerhin  noch 
den  Wert  674423,34803.  Dies  ent¬ 
spricht  einem  Fehler  von  0,016  Pro¬ 
zent  im  Vergleich  zum  15stelligen 
Wert  von  674530,470741078  emer 
CDC-Cyber-Anlage(Die  Fehlerquo¬ 
te  bei  Basic  liegt  bei  über  100  Pro¬ 
zent!).  Welches  andere  Pascal  rech¬ 
net  dazu  die  ersten  1 000  Primzahlen 
in  knapp  3  Sekunden  aus? 


C  64  —  Turbo  Pascal  im  Zeitvergleich 

Neben  dem  Vorzug  effizienter 
Compilierung  und  hoher  Ausführ¬ 
geschwindigkeit,  bietet  Turbo  Pas¬ 
cal  selbstverständlich  auch  nützli¬ 
che  Erweiterungen  an,  die  über  das 
Standard-Pascal .  hinauscehen.  Da¬ 
bei  erkennt  man  schon'  vom  Hand¬ 
buch  her  die  Vorzugsstellung  von 
IBM;  denn  für  den  IBM  und  Kompati¬ 
ble  finden  sich  zusätzlich  Grafik- 
und  Soundbefehle  als  »IBM-Good- 
ies«.  Vielleicht  wird  man  in  Turbo 
auch  mal  »C  64  Goodies«  finden,  falls 
der  Hersteller  Borland  International 
den  C  64-Markt  und  die  C  64-Benutz- 
er  Borland  entdecken. 

Um  den  Rahmen  nicht  ganz  zu 
sprengen,  seien  hier  nur  einige  Er¬ 
weiterungen  knapp  skizziert: 

—  Strings  sind  voll  implementiert. 
Dazu  kommen  acht  Funktionen/Pro¬ 
zeduren,  die  den  Umgang  mit 
Strings  erleichtern. 

—  Eine  Gruppe  von  Funktionen  un¬ 
terstützt  den  direkten  Zugriff  auf  ab¬ 
solute  Speicheradressen  ähnlich 
PEEK,  POKE  und  VARPTR. 

—  Durch  das  Schlüsselwort  EXTER- 
NAL  werden  externe  Unterpro¬ 
gramme  (speziell  in  Maschinen¬ 
sprache)  in  das  laufende  Programm 
eingebunden.  Analog  ist  es  mög¬ 
lich,  durch  das  Schlüsselwort  INLI¬ 
NE  Maschinenprogramme  im  Z80- 
Code  direkt  als  Prozeduren  in 
Pascal-Programme  zu  schreiben. 

—  Dazu  bietet  der  Compiler  zehn  Di¬ 
rektanweisungen.  Die  Compilerop¬ 
tion  C  beispielsweise  wandelt  Pas¬ 
cal-Programme  in  CP/M  80-Befehle 
um.  Diese  neuen  CP/M-Komman- 
dos  in  Verbindung  mit  dem  SUBMIT, 


besser  noch  mit  XSUBMIT  des 
CP/M,  öffnen  die  Türe  weit,  um  auch 
komplexe  Probleme  elegant  und 
übersichtlich  zu  lösen. 

Abgesehen  von  einzelnen  beheb¬ 
baren  Mängeln  ist  Turbo  Pascal  die 
ideale  Erweiterung  und  Ergänzung 
zum  CP/M-Modul  des  C  64.  Durch 
das  langsame  Diskettenlaufwerk  ist 
jedoch  am  kommerziellen  Einsatz 
primär  nicht  zu  denken. 

Wo  das  C  64/Turbo-Pascal-System 
jedoch  optimal  hingehören  könnte, 
ist  der  gesamte  Komplex  der  Aus- 
Fort-  und  Weiterbildung,  sei  es  im 
privaten  Bereich,  wo  man  ein  preis¬ 
wertes  und  schnelles  Pascal-System 
sucht,  oder  im  öffentlichen  Bildungs¬ 
bereich. 

Mit  dem  schnellen  Compiler  ent¬ 


stehen  keine  Geduldsproben  durch 
einen  stundenlagen  Kampf  gegen 
Tippfehler.  Syntax-  wie  Laufzeitfeh¬ 
ler  werden  rasch  entdeckt,  denn  hat 
der  Compiler  einen  Fehler  gemel¬ 
det,  so  wird  nach  dem  Drücken  der 
CLR/HOME-Taste  das  Programm 
im  Editor  gelistet,  und  der  Cursor 
steht  an  der  Fehlerstelle. 

Wenn  jetzt  die  Stunde  genutzt 
wird,  können  der  C  64  und  Turbo- 
Pascal  eine  für  alle  Beteiligten  ge¬ 
winnbringende  Ehe  eingehen.  Was 
im  Moment  noch  fehlt,  ist  eine  deut¬ 
sche  Einführung  in  das  Turbo- 
System,  unter  Berücksichtigung  der 
Eigenheiten  des  C  64.  Sonst  stehen 
wirklich  alle  Möglichkeiten  offen. 
Denn  wo  ist  ein  anderes  System,  das 
zu  einem  Preis  von  etwa  2500  Mark 
nicht  nur  Drucker,  Laufwerk  und 
Zentraleinheit  bereithält  und  eine 
Einführung  in  das  weitverbreitete 
Betriebssystem  CP/M-80  gestattet, 
sondern  auch  darüber  hinaus  eine 
der  modernsten  Sprachen,  nämlich 
Pascal,  mit  allen  Möglichkeiten  der 
modularen  Top-Down-Programmie- 
rung  (weshalb  Pascal  in  einzelnen 
Bundesländern  als  verpflichtend  für 
den  Informatikunterricht  der  S  II 
gilt)  ohne  Abstriche  und  Einschrän¬ 
kungen  zur  Verfügung  stellt?  Hier  ist 
eine  große  Chance,  entweder  für 
Commodore  oder  auch  für  andere 
Hersteller,  das  leider  zu  früh  »ge¬ 
storbene«  CP/M-Modul  für  den  C  64 
wieder  zum  Leben  zu  erwecken. 

(Hans-Ulrich  Korzilius/ev) 

Vertrieb  für  Deutschland,  Heimsoeth-Software,  Frauenho- 
ferstr.  13,  8000  München  5,  089-26  4  0  60 


BENCH1 

BENCH2 

BENCH3 

BENCH4 

APPLE /UCSD 

0,8 

0,4 

9,9 

11,1 

(s)  2  MHZ  6502 

C64/TURBO 

0,8 

0,4 

10,4 

12,6 

(s)  2  MHZ  Z80 

TA  PC/TURBO 

0,7 

0,4 

5,3 

6,3 

(s)  4  MHZ  Z80 
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Das  Leben  ist  voller  Entscheidungen. 

So  muß  mancher  Schüler  darüber  nachdenken, 
ob  er  den  Nachmittag  mit  Lernen  oder  mit  seinem  Computer  verbringt. 
Warum  nicht  beides  miteinander  verbinden? 


Ist  erst  einmal  ein  Computer  im 
Haus,  dann  bleibt  das  Lernen 
meist  auf  der  Strecke.  Fallen  die 
Schulnoten  in  den  Keller,  muß  ein 
Nachhilfelehrer  her.  Dieser  kostet 
dann  zwischen  zwanzig  und  dreißig 
Mark  pro  Stunde,  wenn  nicht  sogar 
mehr.  Doch  was  soll  man  machen? 

Ob  Lernsoftware  einen  Nachhilfe¬ 
lehrer  ersetzen  kann,  ist  wohl  von 
Fall  zu  Fall  unterschiedlich.  Die  bes¬ 
seren  Programme  dürften  aber  zu¬ 
mindest  in  diese  Richtung  gehen. 


Schenkt  man  der  Werbung  oder 
der  Verpackung  Glauben,  so  ist  je¬ 
des  Programm  das  »non  plus  ultra«. 
Wirft  man  dann  einen  Blick  hinter 
die  Kulissen,  kann  man  von  der  ein¬ 
fachsten  Programmierung  bis  hin  zu 
gut  durchdachten  Programmen  al¬ 
les  entdecken. 

Besorgte  Eltern,  die  ihren  Kindern 
Lernprogramme  kaufen  wollen,  ste¬ 
hen  oft  auf  verlorenem  Posten.  Meist 
fehlt  die  Sachkenntnis  zu  dem  Lehr¬ 
stoff,  zum  anderen  sehen  viele  Pro¬ 


gramme  auf  dem  Bildschirm  interes¬ 
santer  aus,  als  sie  eigentlich  sind. 
Und  wer  wollte  schon  den  pädagogi¬ 
schen  Nutzen  anhand  einer  kurzen 
Vorführung  beurteilen? 

Deshalb  beginnt  das  64'er  Maga¬ 
zin  ab  dieser  Ausgabe  mit  einer  Se¬ 
rie,  die  sich  mit  Lernsoftware  be¬ 
schäftigt.  Sie  soll  zeigen,  welche  Pro¬ 
gramme  qualitativ  das  halten,  was 
sie  versprechen,  und  an  welche  An¬ 
wendergruppen  sie  sich  richten. 

(rg) 
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Bild  2.  Komponieren  mit  dem  Melodienschreiber 


Melodienschreiber 

und 

Musik-Synthesizer 

Melodienschreiber  und 
Musik-Synthesizer  sollen 
Lernprogramme  für  den 
angehenden  Musiker  sein. 
Lohnt  es  sich,  Gitarren 
oder  Geigenunterricht  da¬ 
für  aufzugeben? 


t I  I  11  |  !  i  t  I  |  I  I  I  i  I  I  ]  I  {  I  |  l  I  I  I  |  I  M  I  i  i  t i s 1  |  i  i  i  i  | i  »  i  *  ä 


RA  A 
RE  S 
SA  D 
DR  F 
TB  G 
RH  H 
SY  J 
PB  *i 
OK  ./ 

r 1  : 

HP  f3 

n  s? 


A  D  S  R 
X  M  N  , 
ZCBft 


min 


A  D  S  R 

♦  X  U  N  , 

-  Z  C  B  H 


AAAAAÄ 


A  D  S  R 

X  U  H  /  ♦ 

Z  C  B  fl  - 


FF  ;  = 
RS  KL 
LS 


~w — 


K 1 au i atur : 

23  56?  96  -£ 

QUERTYUIOPe»t 


Bild  1.  Das  »Einstellbild«  von  Musik-Synthesizer 


Das  Programm  »Musik-Synthesi¬ 
zer«  gibt  es  in  je  einer  Version  für 
das  Commodore  Basic  V.  2.0  und 
Simons  Basic.  Ist  das  Programm  ge¬ 
laden,  erscheint  bei  der  Simons 
Basic-Version  nach  N ennung  des  Au¬ 
tors  das  einzige  Bild  des  Programms 
(Bild  1). 

Trotz  einiger  Ungenauigkeiten 
des  Handbuches  lassen  sich  bei  in¬ 
tensiver  Lektüre  interessante  Tonzu¬ 
sammenstellungen  erzeugen.  Ein  lä¬ 
stiger  Nachteil:  Zur  Einstellung  und 
Erzeugung  von  Tönen  muß  man  im¬ 
mer  eine  der  drei  Kontrolltasten  be¬ 
dienen. 

Das  Programm  erlaubt,  durch 
Drücken  einer  Taste  (plus  Kontrollta- 
ste)  die  Hüllkurven  der  drei  verfüg¬ 
baren  Stimmen  zu  verändern.  Dabei 
kann  man  Attack,  Decay,  Sustain  und 
Relase  ändern.  Dies  wird  auch  gra¬ 
fisch  angezeicit.  Weiterhin  hat  man 
die  Auswahl  zwischen  Rechteck-,  Sä¬ 
gezahn-  und  Dreieckswellenform 
sowie  Rauschen.  Man  kann  eine 
Ringmodulation  und  Synchronisa¬ 
tion  zuschalten,  um  andere  Stimmen 
zu  beeinflussen. 

Zur  Änderung  der  Oktaven  ste¬ 
hen  zwei  Tasten  zur  Verfügung,  wo¬ 
bei  die  oberste  Oktave  nicht  über 
die  ganze  Tastatur  reicht. 

Eine  weitere  Möglichkeit  bietet 
ein  zuschaltbarer  Filter,  den  man  als 
Hochpaß,  Bandpaß  und/oder  Tief¬ 
paßfilter  schalten  kann.  Das  mehr¬ 
stimmige  Spielen  von  Tönen  be¬ 
schränkt  sich  auf  das  Spielen  eines 
Tons  mit  maximal  drei  Schwingungs¬ 
formen.  Die  Version  in  Basic  V.2.0  ist 
bis  auf  die  Grafik  mit  der  Simons 
Basic-Version  identisch. 

Das  Programm  unterstützt  das  Mu¬ 
sikverständnis  und  erfüllt  damit  die 
gestellte  Aufgabe,  aber  es  gibt  mitt¬ 


lerweile  weitaus  bessere  Synthesi¬ 
zer  und  Musikprogramme. 

Das  Programm  Melodienschrei¬ 
ber  läuft  nur  mit  Simons  Basic.  Für  je¬ 
manden  mit  wenig  Erfahrung  in  der 
Musiklehre  ist  das  Programm  fast 
ungeeignet.  Das  Handbuch  setzt  ein 
recht  großes  Grundwissen  voraus. 

Es  beginnt  mit  dem  Thema,  das  ei¬ 
gentlich  an  den  Schluß  gehört:  Mit 
dem  Ändern  der  Melodie.  Es  sollte 
deshalb  gleich  zu  Punkt  3  überge¬ 
gangen  werden.  Dort  werden  die 
Eingabemöglichkeiten  einer  Melo¬ 
die  erklärt.  Dabei  stehen  drei  Arten 
zur  Auswahl.  Bei  der  manuellen  Ein¬ 
gabe  zeigt  das  Menü  die  Töne  und 
die  Tonlänge  an.  Die  Eingaben  er¬ 
folgen  alle  durch  Input-Befehle.  Die 
zweite  Variante  benutzt  die  beiden 
oberen  Tastenreihen  als  Klavierta¬ 
statur.  Im  Hintergrund  ist  ein  Metro¬ 
nom  zu  hören.  Wählt  man  diese  Ein¬ 


gabeart,  sollte  man  ein  wenig  Kla¬ 
vier  spielen  können. 

Die  letzte  Funktion  erlaubt,  das 
Tempo  selbst  zu  bestimmen.  Die 
Eingabe  wird  wie  gewohnt  gehand- 
habt.  Nach  jeder  Eingabe  erscheint 
ein  Notenbild,  bei  dem  man  even¬ 
tuelle  Fehlmterpretationen  des 
Computers  erkennen  kann. 

Auch  dieses  Programm  hat  seine 
Grenzen.  Bei  mehr  als  200  Einzeltö¬ 
nen  wird  die  Zeitspanne  zum  Auffin¬ 
den  der  Daten  zu  groß.  Um  trotzdem 
mehr  Töne  einzugeben  muß  die 
Basic-Zeile  7  geändert  werden. 

Dieses  Programm  ist  für  den  Hob¬ 
by-Musiker  sicher  eine  feine  Sache, 
doch  als  Lernprogramm  erscheint 
es  ungeeignet.  Besonders  die  man¬ 
gelhaften  »Handbücher«  fallen  da¬ 
bei  schwer  ins  Gewicht. 

(Sven  Seynsche/rg) 
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So  macht  man  Basic- 
Programme  schneller 

Diesmal  wollen  wir  den  Basic-Programmen,  was  die 
Geschwindigkeit  anbelangt,  mit  einem  Ausflug  in  die 
Assemblerprogrammierung,  auf  die  Sprünge  helfen. 


Hier  soll  Ihnen  kein  Maschinen¬ 
sprache-Kurs  zugemutet  wer¬ 
den.  Doch  ein  Programm  in  Ma¬ 
schinensprache  besteht  genauso 
aus  Befehlen,  Adressen  und  Varia¬ 
blen,  wie  ein  Basic-Programm,  nur 
sind  sie  in  einem  speziellen  Zahlen¬ 
code  geschrieben.  Dieser  Zahlen¬ 
code  muß  in  den  Arbeitsspeicher 
geladen  werden.  Die  für  uns  ein¬ 
fachste  Möglichkeit  besteht  darin, 
die  Zahlen  in  den  Speicher  hmeinzu- 
POKEn.  Damit  wir  aber  nicht  unmä¬ 
ßig  viele  POKE-Befehle  schreiben 
müssen,  legen  wir  alle  Code-Zahlen 
hinter  DATA-Befehle  und  holen  sie 
dann  mit  READ  in  eine  einzige 
POKE-Schleife.  Ich  sage  das  deswe¬ 
gen,  weil  dieses  Einlesen  natürlich 
nicht  zu  dem  Testprogramm  gehö¬ 
ren  darf,  dessen  Laufzeit  wir  mes¬ 
sen  wollen.  Das  Testprogramm 
selbst  sitzt  zwischen  den  drei  Zeilen 
der  »Stoppuhr«.  Das  heißt,  genauer 
gesagt  sitzt  das  Programm  in  den 
Speicherzellen,  in  die  wir  es  hinein- 
POKEn.  Aber  zwischen  der  Stopp¬ 
uhr  rufen  wir  es  auf,  der  dem  RUN 
entsprechende  Befehl  bei  Maschi¬ 
nensprache  heißt  SYS. 

Wie  Sie  gleich  noch  sehen  wer¬ 
den  fängt  unser  Testprogramm  ab 
Speicherzelle  7168  an.  Das  Ganze 
sieht  dann  so  aus: 

10  TI$  =  "000000" 

20  PRINT  CHR$  (147) 

30  SYS  7168 

1000  POKE  214,18:PRINT:PRINT 
TI/60  ”SEKUNDEN":END 
Ab  Zeile  2000  setzen  wir  jetzt  das 
Programm,  welches  uns  das  Ma¬ 
schinenprogramm  einliest.  Um  mit 
dem  Einlesen  zu  beginnen,  setzen 
wir  noch  eine  Umleitung  vor  das 
Meßprogramm: 

5  GOTO  2000 

In  Zeile  2000  löschen  wir  den  Bild¬ 
schirm.  Zeile  2010  und  2020  und  2030 
liest  die  Codezahlen,  die  von  Zeile 
2050  bis  2090  stehen,  und  POKEt  sie 
in  die  Speicherplätze  7168  bis  7200. 

Die  Codezahlen  sind  für  beide 
Computer  fast  identisch,  nur  die 
Adressen  sind  verschieden.  Des¬ 
halb  sind  Zeile  2060  und  2080  beim 
C  64  anders  als  beim  VC  20. 


Sobald  die  Zahlen  eingelesen 
sind,  können  Sie  das  Meßprogramm 
mit  dem  Befehl  GOTO  10  (direkt  ein¬ 
getippt)  starten. 

Im  Abdruck  unten  wird  das  etwas 
eleganter  gemacht.  Zuerst  meldet 
das  Programm  das  Ende  des  Einle¬ 
sens  (Zeile  2100  und  2101).  Dann 
kommt  die  Anweisung,  wie  das 
Meßprogramm  zu  starten  ist,  näm¬ 
lich  durch  Drücken  irgendeiner  Ta¬ 
ste,  die  durch  eine  GET-Schleife  ab¬ 
gefragt  wird.  Wenn  eine  Taste  ge¬ 
drückt  wird,  springt  das  Programm 
auf  Zeile  10  (das  geschieht  in  Zeile 
2160). 

5  GOTO  2000 
10  TI$=  ”000000” 

20  PRINT  CHR$(147) 

30  SYS  7168 

1000  POKE  214, 18:1X7. NT:PRINT 
TI/60  ”SEKUNDEN":END 
2000  PRINT  CHR$(147) 

2010  FORA  =  7168  TO  7200 
2020  READ  B 
2030  POKE  A,B 
2040  NEXT 

2050  DATA  162,0,169,1,157 
2060  DATA  0,30,169,6,157,0,150 
(2060  DATA  0,4,169,14,157,0,216) 

2070  DATA  232,224,0,208,241,169,1, 
157 

2080  DATA  254,30,169,6,157,254,150 
(2080  DATA  254,4,169,14,157,254,216) 
2090  DATA  232,224,120,208,241,96 
2100  PRINT"DAS  MASCHINEN¬ 
PROGRAMM” 

2110  PRINT”IST  JETZT  EINGELE- 
SENYPRINT 

2120  PRINT'ZUM  STARTEN  DES 
PRO-’ 

2130  PRINT”GRAMMS  ”CHR$(18) 
”TASTE"CHR$(146)"DRUECKEN” 
2140  GET  A$ 

2150  IF  A$  =  "  "THEN  2140 
2160  GOTO  10 

So,  inzwischen  haben  Sie  sicher 
Ihre  Überraschung  gehabt!  0,066 
Sekunden  Laufzeit  beim  C  64  und 
0,033  beim  VC  20. 

Ich  hoffe,  daß  ich  Sie  mit  dem  Vi¬ 
rus  der  Maschinensprache  infiziert 
habe. 

Wir  wollen  im  Folgenden  ein  paar 
arithmetische  Funktionen  untersu¬ 
chen  und  beschleunigen.  Als  erste 


nehmen  wir  uns  in  Version  17  die  Mul¬ 
tiplikation  vor.  Die  Messung  der 
Laufzeit  erfolgt  auf  dieselbe  Weise 
wie  bei  allen  Programmen  vorher 
auch.  Deshalb  bleiben  die  Zeilen  10, 
20  und  1000  gleich.  Die  Multiplika¬ 
tion  selbst  soll  300  mal  ausgeführt 
werden  (Zeile  30).  Dann  wird  das  Er¬ 
gebnis  gedruckt  (Zeile  60). 

30  FOR  Z  =  1  TO  300 
50  NEXT 
60  PRINT  A 

Als  Multiplikation  nehmen  wir  den 
Extremfall  einer  kurzen  Zahl  multi¬ 
pliziert  mit  einer  langen. 

40  A= 3*0,123456789 

Nach  RUN  bleibt  der  Bildschirm 
zuerst  leer,  bis  dann  nach  11,85  (14, 
15)  Sekunden  das  Ergebnis  der  Mul¬ 
tiplikation  und  die  Laufzeit  ausge¬ 
druckt  wird. 

In  Version  18  vertauschen  wir  die 
beiden  Zahlen,  die  in  Zeile  40  multi¬ 
pliziert  werden. 

40  A=  0.123456789*3 

Diese  einfache  Manipulation 
bringt  natürlich  nach  Adam  Riese 
dasselbe  Resultat  wie  vorher,  aber 
die  Laufzeit  ist  kürzer.  Wir  gewinnen 
beim  VC  20  0,37  Sekunden,  beim  C 
64  0,44  Sekunden.  Dieser  Gewinn  ist 
nicht  überwältigend,  aber  überra¬ 
schend,  Aber  denken  Sie  nach! 

Wie  ist  das,  wenn  Sie  so  eine  Multi¬ 
plikation  auf  dem  Papier  durchfüh¬ 
ren?  Da  ist  die  Rechnung  im  zweiten 
Fall  auch  einfacher.  Der  Computer 
hat  genau  dasselbe  Problem. 

In  Version  19  nützen  wir  noch  eine 
kleine  Eigenheit  der  Commodore- 
Computer  aus,  die  auf  ihre  amerika¬ 
nische  Herkunft  zurückzuführen  ist. 
Bei  den  Angelsachsen  ist  es  nämlich 
erlaubt,  eine  Null  vor  dem  Dezimal¬ 
punkt  wegzulassen.  Beim  Computer 
dürfen  wir  das  auch.  Obwohl  das  mit 
der  Multiplikatikon  direkt  nichts  zu 
tun  hat,  bietet  sie  uns  doch  eine  gute 
Gelegenheit,  die  Einsparung  durch 
das  Weglassen  der  Null  auch  zeit¬ 
lich  zu  messen.  Also,  Zeile  40  sieht 
jetzt  so  aus: 

40  A  =  .  123456789*3 

Das  bringt  nicht  sehr  viel,  0,17  Se¬ 
kunden  beim  VC  20,  0,20  Sekunden 
beim  C  64.  Aber  Kleinvieh  macht 
auch  Mist. 

Eine  ähnliche  Verbesserung,  die 
wir  hier  nicht  ausprobieren,  wird  er¬ 
zielt  durch  den  Ersatz  einer  allein¬ 
stehenden  Null  durch  einen  Punkt, 
zum  Beispiel: 
statt  IFX  =  0  THEN  - 
jetzt  IFx  =  .  THEN  - 

Eme  gewaltige  Beschleunigung 
erfährt  das  Multiplikationsbeispiel, 
wenn  wir  die  Regel  1  anwenden  und 
die  Variablen  vordefmieren. 
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Regel  7 

★  Bei  einer  Multiplikation  soll  die  länge¬ 
re  Zahl  vor  der  kürzeren  stehen  (langer 
Multiplikant,  kurzer  Multiplikator). 

★  Eine  einzelne  Null  wird  durch  einen 
Punkt  ersetzt,  eine  Null  vor  dem  Dezimal¬ 
punkt  wird  weggelassen. 

In  Version  20  ersetzen  wir  in  Zeile  40 
beide  Zahlen  durch  Buchstaben, 
die  wir  in  einer  neuen  Zeile  25  diese 
Werte  zuweisen. 

25  B  =  .  123456789:0  =  3 
40  A  =  B*C 

Dieser  Lauf  bleibt  nach  1,23  (1,48) 
Sekunden  stehen,  das  heißt  wir  ge¬ 
winnen  10,25  (12,23)  Sekunden  (von 
11,48!).  Also  bitte  Regel  1  unbedingt 
beachten! 

Eine  andere  betrachtenswerte 
arithmetische  Funktion  ist  das  »Po¬ 
tenzieren«  (Quadrat-/Kubikzahlen), 
ausgelöst  durch  das  Zeichen  t .  Ver¬ 
sion  21  erzielen  wir  durch  Löschen 
der  Zeile  25  und  Abänderung  der 
Zeile  40: 

40  A=  4  !  3 

»Vier  hoch  drei«  ergibt  64  und 
braucht  8,81  (10,53)  Sekunden. 

In  Version  22  wollen  wir  sehen,  ob 
vordefinierte  Variable  auch  so  ein- 
schlagen,  wie  bei  der  Multiplika¬ 
tion. 

25  B  =  4:C  =  3 
40  A  =  BtC 

Man  kann  sich  doch  auf  nichts  ver¬ 
lassen!  Diesmal  sind  wir  nur  um  0,18 
(0,22)  Sekunden  schneller.  Wir  dür¬ 
fen  aber  nicht  aufgeben.  Version  23 
macht  alles  wieder  wett  und  zwar 
durch  den  simplen  Trick,  daß  wir 
das  Potenzieren  in  seine  Grundele¬ 
mente  zerlegen. 

Sie  wissen  doch:  4  hoch  3  (413)  ist 
dasselbe  wie  »4  zweimal  mit  sich 
selbst  multipliziert«  (4*4*4). 

25  B  =  4  (C  entfällt) 

40  A  =  B*B*B 

Ja,  da  schauen  Sie,  gell?  Beim  VC 
20  braucht  das  Programm  nur  1,68, 
also  fast  7  Sekunden  weniger.  Beim 
C  64  sind  es  8,31  Sekunden,  die  wir 
sparen. 

Regel  8 

Die  Funktion  Potenzieren  (t)  soll  durch 
Mehrfach-Multiplikation  ersetzt  werden. 

Als  letztes  Objekt  möchte  ich  oft 
aufgerufene  Unterprogramme  mes¬ 
sen.  Wir  erreichen  das  ganz  einfach 
dadurch,  daß  wir  das  letzte  Pro¬ 
gramm  (Version  23)  abändern.  So  er¬ 
halten  wir  Version  24:  Die  Definition 
der  Variablen  (Zeile  25)  und  die  Mul¬ 
tiplikation  (Zeile  40)  verbannen  wir 
als  Unterprogramm  an  das  Ende 
des  Programms  und  springen  inner¬ 
halb  der  300fachen  Schleife  mit  GO¬ 
TO  darauf. 


Version  Progranunier-Methode  Laufzeit  (Sek.) 

Nr.  VC  20  C  64 


Laufzeiten  der  Programmversionen  für  arithmetische  Funktionen 


24  Unterprogramm  am  Ende,  Sprung  mit  GOTO-GOTO  2,75  3,28 

25  Unterprogramm  am  Ende,  Sprung  mit  GOSUB-RETURN  2,61  3,13 

26  Unterprogramm  am  Anfang,  Sprung  mit  GOTO-GOTO  2,60  3,10 

27  Unterprogramm  am  Anfang,  Sprung  mit  GOSUB-RETURN  2,48  2,96 


Laufzeiten  der  Programmversionen  für  Unterprogramme 


25  löschen;  30  FOR  Z  =  1  TO  300;  40 
GOTO  40000 

Alles  andere  bleibt,  aber  neu 
kommt  dazu;  40000  B  =  4;  50000 
A  =  B*B*B;  60000  GOTO  50 

Es  ist  nicht  weiter  erstaunlich,  daß 
dieser  Umbau  diese  Version  24  ge¬ 
genüber  Version  23  verlangsamt. 
Aber  merken  Sie  sich  c: Laufzeit, 
VC  20:  2,75  Sekunden,  C  64:  3,28  Se¬ 
kunden,  Als  nächstes  ersetzen  wir 
die  beiden  GOTO-Zeilen  durch 
GOSUB-RETURN. 

40  GOSUB  40000 
60000  RETURN 

Diese  Version  25  spart  uns  0,14  (0,15) 
Sekunden.  GOSUB  ist  schneller  als 
GOTO! 

Sie  haben  vielleicht  schon  gele¬ 
sen,  daß  oft  gebrauchte  Unterpro¬ 
gramme  am  Anfang  eines  Pro¬ 
gramms  stehen  sollen.  Den  Grund 
dafür  will  ich  Ihnen  mit  den  näch¬ 
sten  zwei  Versionen  vorführen. 

Version  26  macht  das  zunächst  für 
die  GOTO-Version.  Wir  bauen  sie 
auf  der  Version  24  auf,  mit  folgenden 
Änderungen: 

Die  Zeitmessung  lassen  wir  wie 
gehabt  in  den  Zeilen  10,  20  und  1000, 
die  Schleife  und  den  Ausdruck  des 
Resultats  in  den  Zeilen  30,  50  und  60. 

Nur  beim  Unterprogramm  strei¬ 
chen  wir  alle  Nullen  der  Zeilennum¬ 
mern,  so  daß  es  jetzt  in  den  Zeilen  4, 
5  und  6  steht.  Um  zu  vermeiden,  daß 
das  Programm  gleich  mit  dem  Un¬ 
terprogramm  beginnt,  fügen  wir  da¬ 
vor  (Zeile  3)  noch  eine  Umleitung 
ein,  die  sofort  auf  der  Zeile  10  weiter¬ 
macht.  Schließlich  brauchen  wir 
noch  den  Sprung  in  das  Unterpro¬ 
gramm,  den  wir  in  die  Zeile  33  setz¬ 
ten.  Das  Ganze  sieht  jetzt  so  aus: 


3  GOTOIO 

4  B  =  4 

5  A=B*B*B* 

6  GOTO  50 

10  TI$  =  "000000" 

20  PRINT  CHR$(147) 

30  FOR  Z  =  1  TO  300 
33  GOTO  4 
50  NEXT 
60  PRINT  A 

1000  POKE  214,18:PRINT:PRINT 
TI/60  "SEKUNDEN":END 
Nach  RUN  erhalten  wir  beim  VC 
20  2,6  Sekunden,  beim  C  64  3,1  Se¬ 
kunden.  Gegenüber  Version  24,  un¬ 
serem  Vergleichsobjekt,  sparen  wir 
0,15  (0,18)  Sekunden. 

Dasselbe  passiert,  wenn  wir  in 
der  Version  27  die  GOTOs  mit 
GOSUB-RETURN  ersetzen. 

6  RETURN 
33  GOSUB  4 

Gegenüber  der  anderen  GOSUB- 
Version  (Version  25)  sparen  wir  beim 
VC  20  0,13  Sekunden,  beim  C  64  0,17 
Sekunden. 

Regel  9 

★  Der  Aufruf  von  Unterprogrammen  mit 
GOSUB  ist  schneller  als  mit  GOTO. 

★  Häufig  gebrauchte  Unterprogramme 
gehören  ganz  an  den  Anfang  eines  Pro¬ 
gramms.  Sie  müssen  dann  allerdings  zu¬ 
erst  mit  einem  GOTO  umgangen  werden. 

Ich  bin  überzeugt,  daß  in  Basic 
noch  mehr  spektakuläre  Zeitgewin¬ 
ne  stecken. 

Falls  Sie  eine  REGEL  10  oder  noch 
mehr  entdecken,  ermuntere  ich  Sie 
um  Mitteilung. 

Wenn  Sie  Fragen  haben,  können 
Sie  mich  mit  einer  Leserzuschrift  an¬ 
sprechen. 

(Dr.  Helmuth  Hauck/aa) 
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C  64 


Viele  Spiele  wurden  in  der  64’er  Redaktion  geschaut, 
gespielt,  getestet.  Eines  fesselte  uns  immer  wieder. 


20.00  Uhr.  Das  Spiizenspiel  «Bay¬ 
ern  Albert«  gegen  »VC  Volker  20« 
wird  vom  Schiedsrichter  angepfif¬ 
fen.  Jetzt  entscheidet  sich,  wer  die 
Tabellenführung  übernimmt.  An¬ 
stoß  von  VC  Volker.  Langer  Paß  in 
die  gegnerische  Hälfte.  Doch  was  ist 
das?  Bayern  Albert  fängt  den  Ball 
ab,  kontert,  stürmt  vor  das  Tor, 
schießt  und  ...  der  Torwart  von  VC 
Volker  wirft  sich  in  die  falsche  Ecke. 
1:0. 

Nach  nervenaufreibenden  drei 
Minuten  der  langerwartete  Halb- 
zeitpfiff. 

Weitere  drei  Minuten  später  ist  es 
entschieden.  Die  Legende  um  den 
in  dieser  Saison  bisher  ungeschla¬ 
genen  »VC  Volker  20«  ist  beendet. 
Der  neue  Tabellenführer  »Bayern 
Albert«  sitzt  schweißgebadet  auf  sei¬ 
nem  Stuhl  und  kann  es  noch  gar 
nicht  glauben.  Es  ist  geschafft. 

Die  ersten  Kommentare  sind  zu  hö¬ 
ren:  Der  Boden  sei  viel  zu  hart,  der 
Rasen  viel  zu  grün  und  das  Bier  für 
Trainer  Volker  viel  zu  warm ... 

Oft  trafen  wir  uns  abends  oder  am 
Wochenende,  um  unsere  Spieler 
über  den  Rasen  laufen  zu  lassen.  Die 
Soccer-Sucht  hatte  uns  befallen. 


Doch  warum  gerade  dieses  Spiel, 
und  nicht  »Summer  Games«,  »Pha- 
raoh's  Curse«  oder  eines  der  ande¬ 
ren  aus  der  Vielzahl  der  Spiele  für 
den  C  64? 

Socccr  kann  man  alleine  gegen 
den  Computer  oder  gegen  einen 
Partner  spielen.  Der  Computer  läßt 
sich  auf  neun  Schwierigkeitsstufen 
einstellen.  In  Stufe  1  fällt  es  auch 
dem  Anfänger  nicht  allzu  schwer, 
den  Computer  zu  besiegen.  In  der 
Stufe  9  muß  man  fast  schon  Profi- 
Kicker  sem.  Die  Spiele  gegen  den 
Computer  machen  allerdings  nicht 
halb  soviel  Spaß,  als  gegen  einen 
zweiten  Spieler. 


Andere  Taktik  bei  jedem 
neuen  Gegner 

Hier  treten  die  Qualitäten  dieses 
Spieles  erst  richtig  hervor.  Einfach 
nur  nach  vorne  schießen,  nützt  in 
den  wenigsten  Fällen.  Man  ist  ge¬ 
zwungen,  sich  Taktiken  zurechtzule¬ 
gen,  den  Gegner  zu  berechnen  und 
dies,  mit  dem  Joystick  auch  noch  um¬ 
zusetzen.  Wieviele  verschiedene 
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Tricks,  den  Ball  zu  spielen,  zu  schaf¬ 
fen  sind,  merkt  man  erst  mit  der 
wachsenden  Anzahl  der  Spiele, 


Da  unser  Preis  in  diesem  Jahr  zum 
ersten  Mal  vergeben  wird,  erschien 
es  uns  fair,  auch  die  früher  veröffent¬ 
lichten  Programme  mit  einzubezie¬ 
hen,  Unter  allen  Spielen,  die  uns  in 
der  Redaktion  erreichten  (und  das 
waren  sehr  viele!),  hatte  fast  jeder 
der  Redakteure  seinen  Favoriten, 
Aber  nur  von  Soccer  waren  alle  be¬ 
geistert.  So  v/ählten  wir  gemeinsam 
ein  »altes«  Spiel, 

Zum  Thema  Fußball  gehört  eine 
Fußballmannschaft,  Für  einen  Foto¬ 
termin  konnten  wir  den  FC  Bayern 
München  gewinnen.  Wie  schon  auf 
der  »Systems  ’  83«  wurde  hierbei  na¬ 
türlich  Soccer  gespielt.  Einstimmige 
Meinung:  »Spitze«.  Vielleicht  wird 
Soccer  in  Zukunft  sogar  als  Trai- 
ningshilfsmittel  eingesetzt? 


Computer  im  allgemeinen  recht  gut. 
Die  Abseitsregel  wurde  ignoriert, 
da  es  nichtmöglich  ist,  ins  Abseits  zu 
gelangen.  Auch  Spieler  mit  Neigung 


Mit  dieser  Regelung  entfallen  also 
Freistöße,  Elfmeter,  gelbe  und  rote 
Karten. 

Soccer  erschien  schon  1S83.  Wie¬ 
so  wird  dieses  Spiel  zum  »Spiel  des 
Jahres  1984«  gewählt? 


Auch  die  Profis 
waren  begeistert 


Der  C  64  war  kaum  aufgebaut,  da 
saßen  die  ersten  Bayern-Spieler 
auch  schon  davor,  obwohl  sie  gera¬ 
de  erst  vom  Training  kamen.  Dieter 
Hoeness  und  Raimund  Aumann  wa¬ 
ren  die  ersten,  die  sich  einen  Platz 
am  Joystick  sicherten.  Der  Pfiff  des 
Computerschiedsrichters  lockte 
dann  immer  mehr  Spieler  an.  Selten 
wird  in  der  Kabine  Fußball  gespielt, 
doch  hier  waren  dann  fast  alle  da¬ 
bei.  Nur  Lothar  Matthäus,  der  mit 
der  Nationalmannschaft  im  Trai¬ 
ningslager  war,  verpaßte  diese  Ge¬ 
legenheit.  Aber  vielleicht  wird  auch 
in  der  Nationalmannschaft  schon  mit 
Soccer  taktiert  und  trainiert. 

Jean  Marie  Pfaff  erzählte,  daß  bei 
ihm  zuhause  der  C  64  fast  den  gan¬ 
zen  Tag  läuft.  Wenn  seine  Kinder 
nicht  davor  sitzen,  spielt  auch  er 
sehr  gerne.  Natürlich  nicht  nur  Soc¬ 
cer. 

Soccer  wird  von  Commodore  zu 
einem  Preis  von  59  Mark  angeboten. 

(rg) 


Nach  dem  harten  Training  auf 
dem  Rasen  oder  im  Kraftraum 
ein  entspannendes  Soccer-Spiel 
in  der  Umkleidekabine 
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D  nicht  die  eines  »Miners«  be 
ziehungsweise  die  eines  »Pac- 
Man«.  Vielmehr  geht  es  um  ein  wag¬ 
halsiges  Geschäft.  Sie  haben  näm¬ 
lich  die  Aufgabe,  ein  wind-  und  wet¬ 
terfestes  »Häuschen«  zu  bauen. 
Gleichzeitig  müssen  Sie  ein  be¬ 
stimmtes  Seore-Limit  erreichen  und 
noch  dazu  möglichst  den  Gegner 
übertrumpfen.  Nun,  das  ist  jetzt 
ziemlich  viel  auf  einmal.  Zuerst  je¬ 
doch  zum  Bildschirm:  Zu  erkennen 
sind  nach  der  Einleitung  eine  schö¬ 
ne  Meeresbucht,  umgeben  von  ho¬ 
hen  Bergen,  ein  zierlicher  Leucht¬ 
turm,  der  später  eine  wichtige  Rolle 
einnimmt,  und  zuletzt  zwei  recht  un¬ 
förmige,  gebäudeähnliche  Gebilde. 
Emes  davon  gehört  Ihnen.  Versu¬ 
chen  Sie  nun,  in  sechs  Tagen  ein  an¬ 
sehnliches  Hochhaus  daraus  zu  ma¬ 
chen.  Steigen  Sie  in  Ihren  Hub¬ 
schrauber,  fliegen  Sie  damit  zu  ei¬ 
nem  Transportkutter,  der  geduldig 


.  Bildrand  wartet.  Er 
hat  je  ein  Fertigteil- 
Äppaitment  geladen. 
Dieses  muß  jetzt  von 
Ihnen  zum  Haus  ge¬ 
bracht  werden  und 
schließlich  richtig 
drauigesetzt  werden. 
Unter  »richtig« 


SiS  09-100  UHflGlQOOQ  009400  07300 


sei  verstanden: 


hurricane-  erdbeben-,  gewitter- 
und  überschwemmungsfest!  Eine 
gewiß  nicht  leichte  Aufgabe,  doch 
das  ist  der  Reiz  an  dem  Spiel.  Nach 
jedem  Tag  (man  sieht  die  Sonne 
richtig  wandern)  wird  eine  neue 
Mindestpunktzahl  festgesetzt.  Wird 
sie  nicht  erreicht,  scheidet  der  Spie¬ 
ler  aus. 

Am  Ende  des  sechsten  Tages  er¬ 
scheint  der  »Daily  Mirror«,  der  über 
den  Erfolg  des  Bauvorhabens  be¬ 
richtet.  Große  Pluspunkte  erzielt 
das  Spiel,  das  von  Happy-Software 
vertrieben  wird,  wegen  der  origi¬ 
nellen  Grundidee  und  deren  Aus¬ 


führung  Grafik  und  Musik  sind 
ebenfalls  sehr  gut.  Besonders  die 
Unterbrechung  des  Spiel  Vorgangs 
ist  positiv  zu  bewerten:  Nach  weni¬ 
gen  Sekunden  springt  der  Compu¬ 
ter  für  den  Spieler  ein.  Die  leider 
englische  Anleitung  im  Programm 
kann  auf-  beziehungsweise  abge 
scrollt  werden.  Grundsätzlich  for¬ 
men  die  einzelnen  Reize  des  Spiels 
und  seine  Finessen  im  Detail  »Cata- 
strophes«  (für  C  64:  Preis:  48  Mark) 
zu  einem  lustigen,  aber  auch  sehr 
spannenden  Geschicklichkeits¬ 
spiel,  das  sogar  dem  actionlieben- 
den  Arcade-Fan  viel  Spaß  machen 
wird.  (Oliver  v.  Quadt/aa) 
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Spiele-Test 


C  64 


Mit  Wizard 
hat  die  amerikanische 
Softwarefirma  PP  &  S 
(Progressive  Peripherais 
and  Software) 
ein  Spiel  auf  den 
Markt  gebracht, 
das  den  Rennern 
Jumpman  und 
Jumpman  Junior 
in  nichts 
nachsteht. 


der  39  Levels  von  Wizard 


Wizard  ist  nicht  etwa,  wie  der 
Name  vermuten  läßt,  ein  Zau¬ 
bererspiel,  sondern  ist  eher  in 
die  Kategorie  der  intelligenten 
»Jump-  and  Run-Spiele«  einzuord¬ 
nen.  Intelligent  deshalb,  weil  man 
auch  selbst  kreativ  das  Spiel  gestal¬ 
ten  kann. 


Das  Spiel 


Das  Ziel  des  Spieles  ist  es,  mög¬ 
lichst  viele  Punkte  zu  sammeln.  Die¬ 
se  erhält  man,  indem  man  möglichst 
viele  Schätze  sammelt,  oder  mög¬ 
lichst  schnell  das  Ende  des  Levels 
erreicht.  Das  Ende  einer  Spielstufe 
erreicht  man  dann,  wenn  man  es  ge¬ 
schafft  hat,  den  Schlüssel  zu  ergat¬ 
tern  und  damit  das  Schlüsselloch  (al¬ 
so  den  Ausgang)  zu  erreichen.  Daß 
dies  nicht  so  einfach  ist,  wird  sich 
wohl  jeder  denken  können;  Schließ¬ 
lich  hat  man  mit  20  verschiedenen 
Arten  von  Feinden  zu  rechnen,  und 
mit  der  Gefahr,  irgendwo  zwischen 
den  vielen  Leitern,  Seilen,  Treppen 
und  gefährlichen  Feuern  abzustür¬ 
zen.  Weitere  Gemeinheiten  wie  Te- 
leporter  und  Transporter  sind  in  hö¬ 
heren  Levels  in  immer  stärkerem 
Maße  eingebaut. 


Hätte  man  da  nicht  noch  so  tolle 
Dinge  wie  Zaubersprüche,  dann  wä¬ 
re  man  spätestens  nach  der  15. 
Spielstufe  dem  Tod  geweiht.  Bei 
sinnvoller  Nutzung  der  zur  Verfü¬ 
gung  stehenden  Sprüche  kann  man 
den  letzten,  also  den  39.  Level  mit 
ein  bißchen  Übung  erreichen. 

Keine  Sorge,  auch  nachdem  man 
den  letzten  Schwierigkeitsgrad  ge¬ 
schafft  hat,  wird  das  Spiel  nicht  so 
schnell  langweilig:  Wer  will,  kann 
sich  seine  eigenen  Levels  erstellen. 


Das  »Construction  Kit« 


Bei  der  Entwicklung  eigener  Bil¬ 
der  steht  dem  »Bildschirmkünstler« 
die  Wahl  zwischen  fünf  Menüpunk¬ 
ten  offen:  Die  Wahl  der  Monster,  die 
Zaubersprüche,  das  Editieren  des 
Bildschirms,  die  Startposition  des 
»Wizard«  und  die  Farbwahl.  Der 
Bildschirmeditor  besteht  aus  einer 
Kombination  von  Cursorbewegung 
per  Joystick  und  Gegenstandsaus¬ 
wahl  durch  zwei  Tasten,  Hat  man 
den  Bildschirmeditor  verlassen, 
kann  man  beginnen,  die  ersten  Bos¬ 
heiten  einzubauen.  Zur  Wahl  stehen 
128  verschiedene  Sprites,  deren 


Auftrittshäufigkeit  und  Animations¬ 
geschwindigkeit  durch  den  Spieler 
bestimmt  werden  können.  Falls  Sie 
sich  zu  viele  »Shadow  Lords«,  Rie¬ 
senratten  oder  »Slimes«  eingebaut 
haben,  besteht  noch  immer  die 
Möglichkeit,  den  Level  durch  Zau¬ 
bersprüche  (Unsichtbarkeit,  Tele- 
port,  Feuerball  etc.)  zu  erleichtern. 

Auf  eine  Diskettenseite  passen 
insgesamt  100  Levels.  Wer  sich  nicht 
sattspielen  kann,  braucht  sich  also 
deswegen  nicht  gleich  massenwei¬ 
se  Disketten  kaufen. 


Eine  Fortsetzung 
ist  geplant 


Wizard  ist  ein  Spiel,  das  durchaus 
mit  Hüpfspielklassikern  wie  Jump¬ 
man  konkurrieren  kann,  und  das  zu 
kaufen  es  sich  lohnt. 

Übrigens:  Die  Herstellerfirma  PP 
&  S  plant  für  Anfang  1985  ein  »Wizard 
Expansion  Set«  mit  erweiterten  Mög¬ 
lichkeiten  und  40  neuen,  gut  durch¬ 
dachten  Levels.  Einem  Erfolg  dieses 
Spiels  dürfte  eigentlich  nichts  mehr 
im  Wege  stehen. 

(Manfred  Kohlen/aa) 
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VC  20  +  8  KByte 


•  «  e 
•  o 
e 


MATHEMATICAL-BASIC: 

DAS  SUPER-BASIC  FÜR  DEN  VG  20 


Einen  echten  Knüller  für  alle  Besitzer  eines  VC  20  mit  8 
KByte  Erweiterung  haben  wir  zum  »Listing  des  Monats« 
gewählt.  Mathematical  Basic  stellt  über  50  neue  Befehle  und 
Funktionen  zur  Verfügung  und  setzt  damit  einen  Standard,  an 
dem  andere  Toolkits  künftig  gemessen  werden  müssen. 


Das  Programm  ist  vollstän¬ 
dig  in  Assembler  ge¬ 
schrieben  und  liegt  zum  Ein¬ 
tippen  als  Basic-Lader  vor. 
Nach  dem  Starten  des  La¬ 
ders  wird  das  eigentliche 
Maschinenprogramm  ab 
Adresse  29211,  also  am  obe¬ 
ren  Ende  von  Speicherblock 
3  abgelegt  und  gleichzeitig 
vor  dem  Überschreiben 
durch  Basic-Programme 
oder  Variable  geschützt.  Bei 
einem  voll  ausgebauten  VC 
20  ( +  24  KByte)  kann  das  Pro¬ 
gramm  ohne  weitere  Verän¬ 
derungen  benutzt  werden. 
Aber  auch  Besitzer  einer 
8-KByte-Erweiterung  kön¬ 
nen  diese  Basic-Erweiterung 
nutzen.  Allerdings  muß  dann 
diese  8-KByte-Erweiterung 
hardwaremäßig  auf  den 
Adreßbereich  von  $6000  bis 
$7FFF,  also  auf  Speicher¬ 
block  3  umgeschaltet  wer¬ 


den.  Schlagen  Sie  bitte  die 
erforderliche  Vorgehens¬ 
weise  im  Handbuch  für  die 
8-KByte-Erweiterung  nach. 
Es  ist  die  gleiche  Umstel¬ 
lung,  die  auch  nötig  wird, 
wenn  Sie  das  8-KByte-Modul 
zusammen  mit  einer  16- 
KByte-Erweiterung  als  24 
KByte  RAM  nutzen  wollen. 


Haben  Sie  allerdings  kei¬ 
ne  zusätzliche  16-KByte- 
Erweiterung,  dann  steht  Ih¬ 
nen  für  das  Arbeiten  mit  Ma- 
thematical-Basic  nur  der 
Grundversionsspeicher  zur 
Verfügung.  Leider  ist  es 
nicht  möglich,  nur  das 
16-KByte-Modul  zu  verwen¬ 
den,  da  dieses  immer  auf 
Speicherblock  1  und  2  ein¬ 
gestellt  ist.  Doch  nun  zum 
Programm  selbst:  Mathema- 
tical-Basic  erweitert  den 


Wortschatz  des  Basic-Inter- 
preters  um  zusätzliche  Be¬ 
fehle  und  Funktionen.  Insbe¬ 
sondere  wurde  die  Handha¬ 
bung  der  trigonometrischen 
Funktionen  verbessert  (man 
kann  zwischen  Altgrad,  Neu¬ 
grad  und  Bogenmaß  wäh¬ 
len).  Daneben  wurden  Spe¬ 
zialbefehle  für  Diskettenbe¬ 
trieb  wie  CATALOG,  DLOAD, 
DSAVE  etc.  eingebaut.  Struk¬ 
turierte  Programmierung 
wird  durch  DO...UNTIL- 
Schleifen  unterstützt.  Viele 
weitere  Befehle  und  Funktio¬ 
nen  vereinfachen  die  Pro¬ 
grammierung  zum  Teil  ganz 
erheblich. 

Auf  jeden  Fall  braucht 
»Mathematical-Basic«  den 
Vergleich  auch  mit  kommer¬ 
ziellen  Softwareprodukten 
dieser  Art  nicht  zu  scheuen. 

(ev) 


•  ••••••••«• 


Der  Autor  des 
»Mathematical  Basic« 
stellt  sich  vor 

Ich  bin  am  9.7.1963  gebo¬ 
ren  und  zur  Zeit  Praktikant  in 
einem  Softwarehaus  in  Bad 
Kreuznach. 

Für  die  Entwicklung  des 
Programms  ist  hauptsächlich 
der  Ärger  über  das  perma¬ 
nente  Fehlen  der  gebräuch¬ 
lichsten  naturwissenschaftli¬ 
chen  Funktionen  in  jedem 
Basic-Interpreter  von  Com- 
modore  verantwortlich. 

Um  mehrere  Funktionen 
über  den  USR-Vektor  zu  im¬ 
plementieren,  müßte  man 
vor  jedem  Aufruf  auch  lästi¬ 
gerweise  die  jeweilige  Ad¬ 
resse  in  diesen  Vektor 
schreiben.  Das  ist  sehr  um¬ 
ständlich;  also  müssen  meh¬ 
rere  USR-Funktionen  her. 
Wenn  nun  aber  schon  eine 
Routine  für  das  Selektieren 
der  Adressen  geschrieben 
wird,  so  kann  man  auch 
gleich  das  Ganze  etwas  kom¬ 
fortabler  gestalten  und  eine 
Interpreter-Erweiterung  ba¬ 
steln.  Das  waren  meine  an¬ 
fänglichen  Überlegungen 
und  heraus  kam  »Mathemati¬ 
cal  Basic«.  Das  Programm 
wurde  so  gehalten,  daß  es  je¬ 
derzeit  weitere  Befehle  und 
Funktionen  aufnehmen 
kann.  6502-Freunde  mit 
Kenntnissen  über  das  VC 
20-Betriebssystem  werden 
sich  schnell  mit  »Mathemati¬ 
cal  Basic«  zurechtfinden  und 
auch  eigene  Änderungen 
durchführen  können. 

(Wolfgang  W.  Wirth) 
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Musik,  Musik, 
Musik 

Das  Programm  ist  als  Werkzeug  zum 
Experimentieren  mit  dem  hardware¬ 
mäßig  phantastischen  aber  software¬ 
mäßig  völlig  vernachlässigten  »Sound 
Interface  Device«  (SID)  im  C  64  ge¬ 
dacht.  Nicht  zuletzt  kann  man  mit  dem 
Synthesizer  auch  musizieren! 

Um  die  Möglichkeiten  zu  nutzen,  sind  folgende  Parameter 
einstellbar  und  werden  übersichtlich  —  teilweise  grafisch  un¬ 
terstützt  —  auf  dem  Bildschirm  dargestellt. 

1)  Die  Tastenreihe  »Q«  bis  »RETURN«  bildet  die  Orgeltastatur. 
Sie  umfaßt  zwei  Oktaven  mit  allen  Halbtönen  und  erscheint 
oben  auf  dem  Bildschirm.  Beim  Drücken  einer  Taste  erklingt 
der  Ton  so  lange,  bis  sie  wieder  losgelassen  wird.  Gleichzeitig 
zeigt  ein  gelber  Balken  (Sprite)  die  aktivierte  Orgeltaste  an. 

2)  Anschlag  (Attack),  Abschwellen  (Decay),  Haltepegel  (Su- 
stain  Level)  und  Ausklingen  (Release)  sind  mit  den  Funktions¬ 
tasten  einstellbar.  Die  geshifteten  Tasten  verringern,  die  un- 
geshifteten  erhöhen  den  Wert.  Die  relative  Lautstärke  (Pegel) 
des  Tones  wird  ständig  rechts  oben  als  Balken  auf  dem  Bild¬ 
schirm  gezeigt. 

3)  Als  Wellenformen  kann  man  Dreieck,  Sägezahn,  Rechteck, 
Rauschen  und  die  ringmodulierte  Dreieckschwingung  (RING) 
mit  der  Taste  »Z«  wählen.  Die  beiden  letzten  sind  in  Klammern 
eingefaßt,  da  sie  sich  zum  Musizieren  nicht  eignen. 

4)  Wählt  man  die  Rechteckschwingung,  wird  das  Tastverhält¬ 
nis  angezeigt  und  kann  mit  den  Tasten  »N«  und  »M«  in 
Sechzehntel-Abstufungen  verändert  werden.  Das  Low-Byte 
des  Tastverhältnisses  beträgt  immer  128. 

5)  Der  Synthesizer  nutzt  das  im  Anhang  P  des  Handbuchs  ge¬ 
zeigte  Frequenzspektrum  voll  aus:  Der  tiefste  Ton  ist  der  Halb¬ 
ton  unter  C0  und  der  höchste  ist  das  Ais-7  (!). 

Da  die  Tastatur  aber  nur  zwei  Oktaven  umfaßt,  kann  man  mit 
den  Cursortasten  den  Frequenzbereich  um  jeweils  eine  Okta¬ 
ve  ändern. 

6)  Mit  der  Taste  »C«  wird  der  Filtermodus  umgeschaltet,  wobei 
das  entsprechende  Wort  auf  dem  Bildschirm  revers  geschrie¬ 
ben  wird.  Ist  kein  Filtermodus  eingeschaltet,  werden  die 
Schaltbits  0,  1  und  2  im  Register  23  gelöscht,  also  für  alle  drei 
Stimmen  die  Filter  ausgeschaltet.  Auch  die  Verwendung  meh¬ 
rerer  Filtermodi  ist  zugelassen. 

7)  Die  folgenden  Parameter  sind  nur  bei  eingeschalteten  Fil¬ 
tern  hör-  und  sichtbar: 

7a)  Mit  den  (ungeshifteten)  Tasten »[«  und  »]«  verändert  man 
die  Grenzfrequenz  der  Filter  in  Sechzehntelschritten.  Es  wer¬ 
den  also  die  höchstwertigen  vier  Bits  im  Register  22  variiert. 

7b)  Die  Filterresonanz  wird  mit  den  Tasten  »<«  und  »>«  ver¬ 
größert  oder  verkleinert. 

7c)  Die  Tasten  »?«  beziehungsweise  ».«  schalten  den  »Wah- 
wah«-Effekt  (er  heißt  wie  er  klingt)  ein  und  aus.  Nach  dem  Ein¬ 
schalten  wird  die  Filtergrenzfrequenz  (Register  22)  gemäß 
dem  Verlauf  der  Hüllkurve  (Register  28)  verändert.  Die  einge¬ 
stellte  Filterfrequenz  (siehe  7a)  hat  dann  keine  Bedeutung. 

8)  Mit  der  Stopp-Taste  verläßt  man  das  Programm.  Da  es  jetzt 
im  Speicher  ist,  kann  es  mit  RUN  1000  unverzüglich  wieder 
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gestartet  werden.  Nun  haben  alle  Parameter  wieder  die  ur¬ 
sprünglichen  Werte. 

Ich  möchte  nicht  verheimlichen,  daß  der  »Synthesizer«  na¬ 
türlich  auch  einige  Einschränkungen  hat: 

1)  Alle  Parameter  werden  jeweils  für  alle  drei  Stimmen  gleich¬ 
zeitig  eingestellt,  denn  bei  nur  einem  Manual  wäre  es  sinnlos, 
den  verschiedenen  Stimmen  zum  Beispiel  verschiedene  Wel¬ 
lenformen  zu  geben. 

2)  Es  gibt  natürlich  grenzenlos  viele  Möglichkeiten,  Parameter 
(zum  Beispiel  die  Filterfrequenz)  während  des  Erklingens  ei¬ 
nes  Tones  zu  verändern.  Ihr  Einbau  würde  aber  ebenfalls  den 
Rahmen  dieses  Programms  sprengen. 

3)  Die  Lautstärke  ist  fest  auf  15  eingestellt.  (Wozu  hat  man 
schließlich  den  Regler  am  Fernseher?) 

4)  Eine  Computertastatur  ist  kein  Orgel-Keyboard.  Dies  setzt 
dem  Spieler  von  Musikstücken  natürlich  Grenzen.  Für  Bastler 
dürfte  es  aber  nicht  allzu  schwierig  sein,  parallel  zur  Tastatur 
ein  in  der  richtigen  Matrix  verdrahtetes  Keyboard  anzuschlie¬ 
ßen. 


C-64  SYNTHESIZER 

MAX  n 

PEGEL  1 
HIN  ■ 

‘ARAHETER  0123456  789 ABCDEF 


Fi  F  2 
F  3  F  4 

F5  F6 

— wy  F8 

CRSR 
'C  ' 


kUN.-'Si  OP 
1984 


PARAHETER 

ANSCHLAG 

A8SCHWELLEH 

HALTEN 

AUSKLIHGEN 


WELLEHFORM  DREIECK 
OKTAUEN  C-4  BIS  C-6 

FILTER  HOCH  BAND  TIEF 


ENDE 
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Der  Bildschirm  zeigt  alle  Werte  auf  einen  Blick 


Charakter 

Okt.  Wellenf. 

Tastv.  An  Ab  Hit  Aus  Filt 

Wah  FF 

Res 

E-Gitarre 

4-6 

Rechteck 

1 

0 

9 

0 

9 

HBT  Ein  - 

7 

Mandoline 

5-7 

Rechteck 

C 

0 

8 

00  8 

- 

- 

Mundhar¬ 

monika 

6-8 

Sägezahn 

_ 

8 

0 

F 

7 

_ 

. 

. 

Gong 

3-5 

Ring 

- 

0 

D 

0 

D 

- 

- 

- 

Explosion 

0-2 

Rauschen 

- 

0 

0 

F 

C 

- 

- 

- 

Popcorn 

5-7 

Dreieck 

0 

2 

0 

0 

- 

- 

Quak-quak 

4-6 

Sägezahn 

- 

8 

9 

9 

8 

B 

Ein  - 

F 

Meeres¬ 

rauschen 

5-7 

Rauschen 

. 

B 

B 

0 

B 

HBT  Ein  - 

7 

Knattern 

0-2 

Rechteck 

0 

8 

0 

F 

D 

- 

- 

- 

Xylophon 

4-6 

Dreieck 

- 

0 

9 

0 

9 

T 

Aus  2 

6 

Glöckchen 

6-8 

Dreieck 

- 

0 

A 

0 

A 

- 

- 

- 

Beispiele  für  Klangeinstellungen  mit  »Synthesizer« 

Abspeichern  des  Programms 

Wer  es  ganz  elegant  machen  möchte,  kann  das  Maschinen¬ 
programm  (den  »Objektcode«)  als  solches  auf  Band  oder  Dis¬ 
kette  schreiben.  Ich  habe  die  dazu  nötigen  POKEs  und  SYS- 
Aufrufe  zusammengestellt,  die  man  im  Direktmodus  eingeben 
kann.  Allerdings  sind  die  PRINT-Befehle  (Zeilen  1000-1200) 
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nicht  im  Maschinenprogramm  enthalten!  Aus  diesen  Zeilen 
sollte  man  also  ein  kleines  Basic-Programm  schreiben,  das  mit 
der  Zeile  »LOAD  ”SYNTHESIZER-OBS”«,  Gerätenummer,  1« 
beginnt  und  mit  »SYS12800«  endet. 

Wer  einen  Monitor  besitzt,  kann  natürlich  diesen  zum  Ab¬ 
speichern  benutzen.  Die  Startadresse  ist  $  2F00  und  die  End¬ 
adresse  $  35DD. 

Nun  noch  ein  Hinweis  für  diejenigen,  die  den  SID  selbst  pro¬ 
grammieren  wollen  und  nur  das  Handbuch  zum  Commodore 
64  besitzen:  Wer  die  Beispielprogramme  schon  ausprobiert 
hat,  dem  sollte  aufgefallen  sein,  daß  die  Töne  nie  ausklingen 
—  egal,  welchen  Wert  man  hierfür  eingestellt  hat.  Das  liegt  dar¬ 
an,  daß  der  Tongenerator  dort  immer  mit  POKE  W,  0  »abge¬ 
würgt«  wird.  Zum  korrekten  Ausschalten  eines  Tones  darf  man 
aber  nur  das  0.  Bit  des  Wellenform-Registers  löschen,  das  so¬ 
genannte  »KEY«-Bit!  Richtig  heißt  es  also  POKE  W,  1 6  (bei  der 
Dreieckschwingung). 

(Martin  Ahlborn/rg) 


-  c-6 4  Synthesizer  - 

von  martin  ahlbarn  4/5  1*784 

hohe  feldstrasse  1 
3418  uslar  2 


1  rem 

2  rem 

3  rem 

4  rem 

5  rem 

10  prinf'fefcfcterspc (12) "bitte  warten" 

20  aa= 1 2288 :ea=l 2339 : gosub 700 
30  aa= 12352: ea= 12403: gosub700 
40  aa=12465: ea=12520: gosub700 
50  aa=12800: ea=13788: gosub700 
88  : 

90  rem  ************************ 

92  rem  *notentabel 1 e  erstellen* 

94  rem  ************************ 

96  : 

100  de-f-fn  rd(a)=int(a)-(  (a-int(a)  )  >=.5): 

rem  auf  ganze  zahl  runden 
110  tn=67284:rem  parameter  fuer  h-7 
120  f orz=95ta0step-l 
130  tn=tn/2T (1/12) 


u  ™  Listinq  »Synthesizer« 

aa 

= 

Anfangsadresse 

1d0 

hb'/=tn/256 

ea 

= 

Endadresse 

160 

1  b7.=tn-hb7.*256 

tn 

= 

Ton  (Frequenzparameter) 

170 

pokel 2032+2*z , lb% 

hb% 

= 

Hi-Byte  von  tn 

180 

ppkel2032+2*z+l  ,hb7. 

lb% 

= 

Lo-Byte  von  tn 

190 

next 

hx$ 

= 

Hexadezimalzahl 

290 

2 

ps 

= 

Prüfsumme 

300 

if ps< >15145then350 

h 

= 

Hi-Nibble  der  Hexzahl  hx$ 

320 

gotol000 

1 

= 

Lo-Nibble  der  Hexzahl  hx$ 

350 

print"f alsche  daten  ! " : end 

Funktion 

688 

- 

fn  rd  (x) 

= 

x  auf  ganze  Zahl  runden  (eine  nützliche  Funktion, 

697 

-em  ************** 

auch  wenn  sie  hier  nicht  unbedingt  notwendig  ist) 

692 

rem  *poke-routine* 

Variablenliste  des  Basic-Ladeprogrammes  »Synthesizer« 


20  —  50 


100  —  190 


300  —  350 


700  —  750 


1000  —  1200 


Schreiben  des  Maschinenprogramms  und  der  dafür- 
nötigen  drei  Tabellen  in  den  Speicher. 

Hier  wird  die  im  Anfang  P  des  Handbuchs  gezeigte 
Tabelle  rechnerisch  erstellt.  Sie  besteht  aus  96  Fre¬ 
quenzparametern,  die  in-  Lo-  und  Hi-Byte  zerlegt 
werden.  Sie  wachsen  logarithmisch,  das  heißt,  der 
Faktor  zwischen  zwei  Zahlen  ist  konstant:  12te 
Wurzel  aus  2  (eine  Oktave  hat  12  Halbtöne). 

Die  Prüfsumme  wird  mit  dem  Sollwert  verglichen. 
Wenn  sie  stimmt,  startet  das  Programm. 
POKE-Routine:  Die  Hexadezimalzahlen  in  den  DA- 
TAs  werden  gelesen,  nach  dezimal  gewandelt  und 
in  den  Speicher  geschrieben.  Außerdem  wird  eine 
Prüfsumme  gebildet. 

Das  Bild  wird  mit  Basic  erstellt,  was  gegenüber  der 
Maschinensprache  (ausnahmsweise)  keinen  spür¬ 
baren  Geschwindigkeitsverlust  bringt.  Die  PRINT- 
Texte  müssen  genau  abgeschrieben  werden,  da  sie 
vom  Maschinenprogramm  teilweise  geändert  wer¬ 
den! 

Aufruf  des  Maschinenprogramms. 

Drei  Tabellen:  Die  erste  enthält  die  Koordinaten  für 
die  Sprites,  die  die  gedrückten  Orgeltasten  anzei- 
gen.  Die  zweite  Tabelle  liefert  die  für  die  Tastaturab¬ 
frage  erforderlichen  Bitmuster  der  Ports  A  und  B 
des  CIA  1.  (Dies  ist  deswegen  so  umständlich,  weil 
auch  mehrere  gleichzeitig  gedrückte  Tasten  jeweils 


bei  Tastendruck  erscheinen. 

Das  989  Bytes  lange  Maschinenprogramm. 
Die  Zeilen  300,  350  und  750  können  entfernt  werden,  nachdem  die 
DATA-Zeilen  einmal  richtig  abgeschrieben  wurden. 


696  : 

700  forpc=aatoea 
710  readhx$ 

720  h=asc(hx$)-48:h=h+(h>9>*7 

730  l=asc Cright$(hx4, 1) ) -48: 1=1 -Ml >9) *7 

740  pokepc , 16*h+l 

750  ps=ps+h+l  :  rem  pruef summe 

760  next :  return 

980  : 

990  rem  *************** 

992  rem  *text  St  grafik* 

994  rem  *************** 

996  : 

1000  printchr4-  ( 142)  "Sdüiif********  c-64 

Synthesizer  ********13'' 


1310 

1500-  1750 


1010  print"Sl  12  dl  i 
I  EU  max  ’H- " 

1020  print"  ’S  »I  dl 
I  >»»»»»1  " 

1030  print"  ?  dl  dl 
Ir S  pegel  12  " 

1040  print"  12 

1050  print"  'Bqlwlelr  lt 
ItÖl  min  Sb" 

1060  print "EindK4tasten 
23456789abcdef " ; 

1070  print" 


I  DI  m 


dl  dl  I  dl  dl  l  dl  di  dl 


dl  dl  dB  l  dl  di  l  dl  dl  dl 


l  i  l 


l  l 


ly  iu  li  io  Ip  l@  I*  IT  1  = 


parameter 


01 


2000  —  3200 


Programmbeschreibung  »Synthesizer« 


die 

1080 

? 

print1 

1  El 

f  1 

f  2 

anschlag 

TBLLL 

LLLS 

1090 

print' 

'Sä 

■>  . 

5 

f  3 

f  4 

abschwel 1 en 

13L  Sil 

1100 

print' 

■«a| 

» 

f  5 

f  6 

hal ten 

12LLL 
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ANWENDUNG  DES  MONATS 


LLLLLLLi-LLLLLST; 


1110  print "v 
LLLLd 

f  7  f  8 

H  . 

aus kl ingen 

S_LL 

1120  print" SJ 
LLLS 

’  n  '  '  m  ' 

tastverh . 

TäLLL 

1130  print"*J 
eck 

-  '  z  ' 

wel 1 enform 

drei 

1140  print"! 
iM  bis  c— 36" 

ersr 

Oktaven 

c— =34 

1150  print":! 
band  tief" 

'  c ' 

f i 1 ter 

hoch 

1160  prinf'sJ 
LLLLSü 

'C '  '  3  ' 

5 

f i 1 terf req . 

"äLLL 

1170  print  "Öl 
LLLLiS 

'  <  '  '  >  ' 

5 

resonanz 

’ÜLLL 

1180  print  "Öl 

"j ' 

' wah-wah ' 

aus" 

1190  print"!:*! 

run/ stop 

ende" 

1200  pr  int"  5351  (c)  1984  martin  ahlbor 

n  3418  uslarJS" 

1300  : 

1305  rem  ************ 

1310  :::::: sys 12800 : : 

1320  rem  ************  ...  Ä 

14S0  .  Listing  »Synthesizer« 

1490  rem  ********** 

1492  rem  *tabellen* 

1494  rem  ********** 

1496  : 

1500  datal0,40, 18,50,20,40,28,50 
1510  data30 , 40 , 38 , 50 , 48 , 50 , 50 , 40 
1520  data58 , 50 , 60 , 40 , 68 , 50 , 70 , 40 
1530  data78 ,50,88,50,90,40,98,50 
1540  dataa0,40,a8,50,bB,50,c0,40 
1550  datacB , 50 , dB , 40 , d8 , 50 , e0 , 40 
1560  datae8 , 50 ,  f  8  , 50 
1590  : 

1600  data7-f  ,01  ,7-f  ,40,7-f  ,08,-fd,02 
1610  data-f  d  ,01  ,-fd,40,-fb  ,02,-f  b  ,01 
1620  data-f  b  ,  40  ,-Fb  ,  08 ,  f  7 , 02 ,  -f  7,01 
1630  data-f  7, 40,  ef  ,02,e-f  ,01 ,  e-f  ,40 
1640  datae-f  , 0S,df  ,02,d-f  ,40,d-f  ,08 
1650  databf  , 02,bf  , 01 ,bf  ,40,b-f  ,08 

1660  databf  ,20,fe,02 

1690  : 

1700  data28, 12,01 , 15, 13,03,08,05 
1710  data0e ,29,12,05,03,08,14,05 
1720  data03, 0b, 20, 20, 13,01 ,05,07 
1730  data05, la,01 , 08 , 0e , 20 , 04 , 12 
1740  data05, 09, 05, 03, 0b ,20,20,20 
1750  data28, 12 , 09 , 0e , 07 , 29 , 20 , 20 
1760  data20 , 20 , 05 , 09 , 0e ,01,15,13 
I960  : 

1990  rem  ********** 

1992  rem  *programm* 

1994  rem  ********** 

1996  : 

2000  datad8 , a9 , 00 , a2 , 7e , 9d , 80 , 03 
2010  dataca,  10, f a,a9,ff  ,a2,24,9d 
2020  datacl ,03,ca,ca,ca,d0,f8,8d 
2030  dataB 1 , 03 , a2 , 03 , a0 , 00 ,8c, 20 
2040  datad0,8c,21 ,d0,8c,e9,07,8c 
2050  data-f  4,07,8c  ,2a, d0,a9,0e,8d 
2060  data-f  b  ,07,  a2, 08, 8e,  10,  d0,  ca 
2070  data8e , 27 , d0 , 8e , 28 , d0 , 8e , 29 
2080  datad0,8e,  17, d0,a9, 60,85, -fa 
2090  data8d  ,  f  2 , 07 , 8d  ,  -f  1  ,07 ,8d  ,  16 
2100  datad4 , 8d  ,  1 7  ,  d4 ,  a9 , 34 , 8d  ,  -f  3 
2110  data07,a9,02,8d, 15,d4,a9,2f 
2120  data85,-fb,a9,80,8d,8a,02,8d 


C  64 


2130  data02,d4,8d,09,d4,8d, 10, d4 
2140  dat aa2 ,10, 8e , ee , 07 , a9 , 39 , 8d 
2150  dat a06,d0, ca, 8e,-f B,07,8e,f 9 
2160  data07,8e,f a,07,8e, 18,d4,ee 
2170  datae-f  ,07, a9, 05, 8d,e8, 07, Bd 
2180  dataec  ,  07  ,  a9 , 0-f  ,  8d  ,  ea  ,  07  ,  a9 
2190  data06,8d ,eb ,07, 20, 54,34, ac 
2200  dataee , 07 , 8c ,04 ,d4 , 8c ,0b ,d4 
2210  dataBc, 12,d4,a9,08,8d, 15,d0 
2220  datal0 , 0b , aa,a9 ,cc , 9d , aB ,05 
2230  dataa9,20,9d,a9,05,ad, lc,d4 
2240  dataac  ,  -f  4 , 07 , -f  0 , 03 ,  Bd  ,  16 ,d4 
2250  data4a,4a,4a,85,02,38,a9,64 
2260  datae5 , 02 , 8d , 07 , d0 , a6 , cb , e0 
2270  data40,-f  0  , c4 , 78  , a0 , 00 , ba  , 86 
2280  dat a02 , b9 , 40 , 30 , 8d , 00 , de ,ad 
2290  dataßl ,dc ,39,41 ,30,d0,03,4c 
2300  datall ,34,c8,c8,c0,34,d0,e9 
2310  databa,e4,02,-f0,03,4c,87,34 
2320  data58 ,20,3e, f 1 , c9 ,03 ,d0 ,03 
2330  data4c , c3 , 35 , c9 , 43 , d0 , 03 , 4c 
2340  data55,35,c9 ,3b ,d0 ,05,a2,00 
2350  data4c ,a5,33,c9,3a,d0,05,a2 
2360  data00 , 4c , bc , 33 , c9 , 2e , d0 ,05 
2370  dataa2,01 ,4c , a5 , 33 , c9 , 2c , d0 
2380  data05,a2,01 ,4c ,bc ,33,c9,2f 
2390  datad0 , 03 , 4c , 30 , 34 , c9 , ld ,d0 
2400  data03,4c ,e7,33,c9, 11 ,d0,03 
2410  data4c,f 7 , 33 , c9 , 5a , d0 , 03 ,4c 
2420  data-f  3 , 34  ,  c9 , 4d  ,  d0 , 04  ,  a2 , 04 
2430  datal0 , lb , c9 , 4e , d0 , 04 , a2 , 04 
2440  dat a 1 0 , 27 , c9 , 85 , 90 , 04 , c9 , Bd 
2450  dat a.90 , 03 , 4c  ,  bd  , 32 , 38  ,  e9 ,85 
2460  datac9 ,04,b0,ll, aa , bd , e8 ,07 
2470  datac9 , 0f , f  0 , ee , 38 , 69 , 00 , 9d 
2480  dataeB , 07 , 4c , 97 , 33 , 38 , e9 ,04 
2490  dataaa,bd,e8,07,d0,B3,4c,bd 
2500  dat  a32 , 38 , e9 ,01, 9d , e8 , 07 , 48 
2510  data20 , 54 , 34 , 68 , 18, 69, 28, ca 
2520  datal0  ,  -f  a  ,  4c  ,  b2 , 32 ,  bd  ,  -f  1  ,07 
2530  data29,fB,c9,f0,f0,36,bd,f 1 
2540  data07 , 18,69 , 10 ,9d  ,-f  1 ,07,9d 
2550  datal6, d4,d0, 13,bd,fl , 07 ,29 
2560  dataf0,f0,21 ,  bd  ,  -f  1 , 07 , 38  ,e9 
2570  datal0 , 9d  ,  -f  1 , 07 , 9d  ,  16  ,  d4 , 4a 
2580  dat a4a, 4a, 4a, ca, d0, 03, 18,69 
2590  data28,aa,a9,cc,9d, 10,07, a9 
2600  data20 , 9d ,11, 07 , 4c , bd , 32 ,a5 
2610  datafa, c9, 90, -f0, 21, 18,69,18 
2620  data85  , -f  a  ,  ee  ,-f  3 ,07  ,  d0, 0c  ,a5 
2630  datafa,f 0, 13,38, e9, 18,85,f a 
2640  dataee , f  3 , 07 , ae , f  3 , 07 , 8e ,c2 
2650  data06, e8,e8,8e, ca, 06, 4c ,bd 
2660  data32 , ba , 8a , 18,69,0c,c5,02 
2670  dat ad0 , 03 , 4c , f  2 , 32 , b9 , 00 , 30 
2680  data48,b9,01 ,30, 48, bl ,f a,48 
2690  datac8,bl  ,fa, 48, 88,4c  ,-f  2,32 
2700  dataad,f 4,07, a0, 02, 49,01 ,Sd 
2710  d  at af  4 , 07 , f  0 , 0c , b  9 , e3 , 30 , 99 
2720  data60 , 07 , 88 , 10 , f 7 , 4c , bd ,32 
2730  datab9,e6,30,99,60,07,B8, 10 
2740  dataf 7 , 4c , bd , 32 , ad , e8 , 07 ,0a 
2750  data0a,0a,0a,0d ,e9,07,8d ,05 
2760  dat ad 4 , 8d , 0c ,d4 ,8d , 13 ,d4 ,ad 
2770  dataea , 07 , 0a ,0a ,0a , 0a , 0d ,eb 
2780  data07 , Bd , 06 , d4 , 8d , 0d , d4 ,8d 
2790  datal4,d4,ad,ec,07,8d,03,d4 
2800  data8d ,0a, d4 , 8d , 1 1 , d4 , 60 , ad 
2810  dataf 4 , 07 , d0 , 06 , ad , f 1 , 07 ,8d 
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282(3  datal6,d4,6B,8d,0-f  ,d4,68,8d 
2830  dats0e,d4,ac,ee,37,cB,8c, 12 
2840  datad4 , 68 , 8d , 0 1 , d0 , 68 , 8d , 00 
2850  datad0,a9,09,8d, 15,d0,ba,e4 
2B60  data02,-f0,3d,6B,Bd,0S,d4,68 
2870  dataBd , 07,d4,ac,ee,07,c8,Bc 
2880  data0b , d4 , 68 , 8d , 03 , d0 , 68 , 8d 
2890  data02,d0,a9,0b,8d, 15,d0,ba 
2930  datae4,02,-f0,  lc,68,8d,01  ,d4 
2910  data68,8a,00,d4,ac,ee,07,cB 
2920  data8c ,04,d4,68,8d ,05,d0,68 
2930  data8d,04,d0,a9,0-f  ,8d,  15,d0 
2940  data4c ,00,33, a2,a6, 86, fc ,a2 
2950  data30 , 86 , f d ,ad , es, 07 ,29, 04 
2960  dataf0,09,a9, 10 , 8d , ee, 07 , 85 
2970  data.02, 10,2+  , ad , ee , 07 , 29 , 70 
2930  datad0 , 0d , a9  ,d8 , 85 ,fc, a9 ,14 
2990  dataSd ,ee , 07 ,  s0, 0a , 10 , 2b , ad 
3000  dataee , 07 , 0a, 8d , ee , 07, 85 , 02 
3010  datac9,40,f  0 , 04 ,  a9 , 00  , -f  0 , 02 
3020  dataa9,0a,a2,27,9d,58,da,ca 
3030  datal0,f  a,a5,-fc,  18, 69, 0a,  65 
3040  dataf  c: ,  a5 , 02 , 0a  ,  35 , 02, 90 , 1 2 
3050  dataa0,0a,bl  ,-fc  ,99,97,06,88 
3060  datad0 , f 8 , 4c , bd , 32 , a2, 0d , bd 
3070  dataeB, 06, 29, 7-f , 9d ,e8, 06, ca 
3080  datal0,-f5,ae,ef  ,37,e0,0-f  ,d0 
3090  data03,20,ab,35,eß,7-f  ,d0,05 
3100  data20  ,  ab  ,  35  , a2 , -f -f  ,8a,  18,69 
3110  rfatal0,8d,e-f  ,07,8d,  18,d4,0a 
3 1 20  dat  a85 , 02 ,  a2 , 06 , 86 ,  -f  d  ,  a2 ,  e8 
3130  dataB6,-f  c  , a2 , 33 , a5 , 02, 0a ,  85 
3 1 40  dat a02 , 90 , 0b , a0 , 03 , b 1 , t c , 09 
3150  data80,91  ,-fc, 88, 10  ,  f  7 ,  a5  , -f  c 
3160  data  18 , 69 , 05 , 85  ,-fc, ca, d0,  e4 
3 1 70  dat a4c , bd , 32 , ad , f 2 , 07 , 49 , 07 
3180  data8d  ,-f2,07,8d,  17,d4,a0,6e 
3190  dat  ab  9 ,  -f  8 ,  da ,  49 , 0e ,  99 ,  -f  8 ,  da 
3200.  data8Q  ,  10  ,  -f  5 , 60 , 4d  ,  41 , 52 ,54 
3210  data49 , 4e , 20 , 41 , 48 , 4c , 42 , 4t 
3220  data52 , 4e , 20 , 33 , 34 ,31, 38 , 20 
3230  dat a55, 53, 4c, 41 ,52 
4000  ende 

ready.  Listing  »Synthesizer«  (Schluß) 


10  »save-routine  für  c-64 

Synthesizer 

20  *bitte  im  direktmodus 

eingeben , 

30  »also  ohne  zeilennummern 

40  * 

100  pake  781 , ger aetenummer  (1  bzw  8) 

110  sys  65466 

120  no!$="synthesi  zer-ab  j  " 
130  pake 183 , 1 en (nm$) 

140  poke781 ,681and255 

150  pake782, 681/256 

160  -f  orc=ltal5:  pake680+c. 

asc (midi (nm$ , c ) 

) : nex  t 

170  poke250,12032and255 
180  pcke251 , 12032/256 

■»startadresse 

190  poke780 ,250 

200  pake781 , 13790and255 
210  pake782, 13790/256 

-»endadresse 

220  sys65496 

»save 

ready. 

Listing  »Save-Routine«  für  »Synthesizer« 

Mathematical 


Fortsetzung  von  Seite  50 

Eine  gute  Nachricht  für  alle  Freunde  des  VC  20:  Unser  »Li¬ 
sting  des  Monats«  macht  mit  über  50  neuen  Befehlen  das  Pro¬ 
grammieren  zum  Vergnügen. 

Leider  gibt  es  aber  auch  eine  schlechte  Nachricht.  Sie 
müssen  gut  und  gerne  150  DATA-Zeilen  eintippen.  Lassen 
Sie  sich  aber  davon  nicht  entmutigen.  Der  Aufwand  lohnt 
sich  ganz  bestimmt.  Das  Programm  hilft  Ihnen  bei  der  wohl 
unvermeidlichen  Suche  nach  Tippfehlern  durch  das  block¬ 
weise  Bilden  von  Prüfsummen. 

>.  Befehle  des  Mathematical  Basic 

erlaubt  eine  REM-Anweisung  innerhalb  einer  Zeile  ohne  sofor¬ 
tige  Programmfortsetzung  ab  folgender  Zeile. 

BEEP  h,  I: 

gibt  einen  Ton  variabler  Höhe  (h)  und  Länge  (I)  aus.  h  ist  im  Be¬ 
reich  von  0  bis  126  und  I  von  0  bis  255  definiert.  Beträgt  1=0, 
so  wird  kein  Ton  ausgegeben. 

CATAL0G: 

bringt  das  Inhaltsverzeichnis  der  Diskette  auf  den  Bildschirm. 
Dieser  Befehl  ist  nur  für  das  Gerät  mit  der  Nummer  8  definiert. 
Wird  während  der  Ausgabe  die  STOP-Taste  betätigt,  so  wird  die 
Ausgabe  sofort  abgebrochen.  Wird  die  Leertaste  gedrückt,  so 
wird  die  Ausgabe  nur  unterbrochen  und  kann  mit  einer  weite¬ 
ren  Betätigung  dieser  Taste  fortgesetzt  werden. 

colcp 

c,h,r:  setzt  die  Farben  für  Cursor  (c),  Hintergrund  (h)  und 
Rahmen  (r).  r  und  c  erstrecken  sich  von  0  bis  7  und  h  von 
0  bis  1 5.  Die  einzelnen  Farben  bezüglich  der  Nummercodes 
können  dem  VC  20-Handbuch  entnommen  werden. 

CLS: 

löscht  den  Bildschirmspeicher. 

DEFUSRn  TO  x: 

definiert  einen  der  neun  möglichen  USR-Vektoren.  Die  einzel¬ 
nen  USR-Funktionen  werden  durch  das  Zeichen  n  unterschie¬ 
den.  n  kann  dabei  A,  B,  C,  D,  E,  F,  G  oder  H  sein.  Die  neunte 
USR-Funktion  ist  die,  welche  über  den  Vektor  in  den  Adressen 
1  und  2  angesprungen  wird.  Soll  dieser  Vektor  definiert  wer¬ 
den,  so  muß  n  weggelassen  werden.  Die  Variable  x  steht  für 
den  Vektor  selbst,  also  der  Adresse,  ab  der  die  USR-Funktion 
starten  soll.  Beispiel:  DEFUSRA  TO  30000.  Die  USR-Funktion 
USRA  erhält  die  Einsprungadresse  30000. 

DEGREE: 

stellt  die  Routinen  für  trigonometrische  Funktionen  auf  Nor¬ 
malgrad  (0  bis  360)  ein. 

DELETE  a-b: 

löscht  Zeilen  eines  Basic-Programms  von  Zeile  a  bis  Zeile  b. 
Für  a  und  b  sind  nur  Konstanten  erlaubt. 

DIRECTORY: 

siehe  CATALOG 
DLOAD  pn$: 

lädt  ein  Programm  mit  dem  Namen  pn$  vom  Floppy- Laufwerk 
mit  der  Nummer  8.  Außer  dem  Namen  sind  keine  weiteren  Pa¬ 
rameter  erlaubt. 

DO: 

erlaubt  zusammen  mit  UNTIL  eine  Schleife.  Der  zwischen  die¬ 
sen  beiden  Schlüsselwörtern  liegende  Programmteil  wird  so 
oft  wiederholt,  bis  der  Ausdruck,  der  UNTIL  folgt,  nicht  mehr 
auf  logisch  0  ist.  Dazu  ein  Beispiel:  DO  GET  a$:  UNTIL  a$=” 
Das  Programm  verläßt  die  Schleife  nicht  eher,  bis  die  Leerta¬ 
ste  gedrückt  wird.  DO-UNTIL-Schleifen  können  acht  Ebenen 
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tief  geschachtelt  werden.  Eine  neunte  DO-Anweisung  würde 
die  Meldung  »out  of  memory«  zur  Folge  haben.  Sollte  UNTIL 
einmal  ohne  einen  vorangegangenen  DO-Befehl  aufgerufen 
werden,  so  gibt  der  VC  20  »until  without  do«  aus. 

DSAVE  pn$: 

sichert  ein  Programm  mit  dem  Namen  pn$  auf  dem  Floppy- 
Laufwerk  mit  der  Nummer  8.  Außer  dem  Namen  sind  keine 
weiteren  Parameter  zulässig.  Sollte  dem  Befehl  DSAVE,  DLO- 
AD  oder  DVERIFY  kein  Parameter  folgen,  so  wird  automatisch 
»*«  als  Parameter  gesetzt. 

DVERIFY  pn$: 

vergleicht  das  Programm  mit  dem  Namen  pn$  im  Speicher  mit 
dem  gleichen  auf  der  Diskette.  Als  Parameter  ist  nur  der  Name 
erlaubt. 

EXECUTE  a$: 

wandelt  den  String  a$  in  Interpretercode  und  führt  die  darin 
enthaltenen  Anweisungen  aus.  Beispiel:  a$=’ä=22”:EXE- 
CUTE  a$.  Der  Variablen  a  wird  der  Wert  22  zugewiesen.  Der 
Befehl  darf  nicht  im  Direkt-Modus  gegeben  werden  und  der 
Befehlsstring  (a$)  darf  eine  Länge  von  88  Zeichen  nicht  über¬ 
schreiten. 

GRAD: 

stellt  die  trigonometrischen  Routinen  auf  Neugrad  (0  bis  400). 

IF: 

Die  IF...THEN-Anweisung  ist  in  ihren  Aufbaumöglichkeiten  er¬ 
weitert  worden.  Es  ist  nicht  mehr  zwingend  erforderlich,  den 
THEN-Dummy  zu  schreiben.  Beispiel:  IF  A=4  THEN  PRINT 
B$  läßt  sich  auch  als  IF  A=4  PRINT  B$  eingeben. 

INITIALIZE: 

initialisiert  die  Floppy  mit  der  Nummer  8. 

LOCATE  z,s: 

setzt  den  Cursor  in  Zeile  z  und  Spalte  s.  z  liegt  im  Bereich  von 
1  bis  23  und  s  von  1  bis  22.  Folgende  Variationsmöglichkeiten 
sind  gegeben:  LOCATE  z  definiert  nur  eine  neue  Zeilenposi¬ 
tion.  LOCATE  ,s  setzt  den  Cursor  innerhalb  einer  Zeile  nur  an 
eine  neue  Spaltenposition. 

LPRINT: 

verhält  sich  wie  PRINT.  Die  Zeichen  werden  aber  nicht  auf  den 
Bildschirm,  sondern  auf  den  Drucker  (Nummer  4)  ausgege¬ 
ben.  LPRINT  und  PPRINT  sollten  nur  bei  angeschlossenen 
Geräten  benutzt  werden,  da  sonst  der  lEC-Bus  blockiert  wird. 

RADIAN: 

stellt  die  trigonometrischen  Routinen  auf  Bogenmaß  ein. 

RENUMBER  z,s: 

reorganisiert  die  Zeilennummern  eines  Basic-Programms.  z  ist 
dabei  die  Startzeile  und  s  die  Schrittweite,  z  und  s  dürfen  nur 
Konstanten  sein.  Sollten  dem  Befehl  keine  Parameter  folgen, 
so  gilt  z  =  100  und  s  =  10. 

RESTORE  TO  z: 

positioniert  den  DATA-Pointer  auf  die  Zeile  z.  Das  Wort  TO  kann 
dabei  wegfallen.  RESTORE  allein  setzt  den  Pointer  wie  ge¬ 
wohnt  auf  den  Programmstart. 

RETURN  TO  z: 

ermöglicht  es,  aus  einem  Unterprogramm  in  eine  bestimmte 
Zeile  z  zurückzukehren. 

RUN  ”name”: 

hat  die  gleiche  Funktion  wie  DLOAD.  Zusätzlich  wird  aber  noch 
der  String  RUN  +CHR$(13)  in  den  Tastaturpuffer  geschrie¬ 
ben.  Das  hat  zur  Folge,  daß  das  gerade  geladene  Programm 
sofort  gestartet  wird. 

PPRINT: 

verhält  sich  wie  PRINT.  Die  Zeichen  werden  aber,  anstatt  auf 
den  Bildschirm,  auf  den  Plotter  (Nummer  6)  ausgegeben. 

QUIT: 

führt  ein  Total-Reset  aus.  Mathematical  Basic  wird  dabei  ge¬ 
löscht. 

UNITL  a:  siehe  DO. 


Die  Funktionen  des  Mathematical 
Basic 


!  a: 

ist  ein  Äquivalent  zur  CHR$(a)-Funktion.  Hierbei  sind  aber  kei¬ 
ne  Klammern  nötig,  a  ist  nur  als  Konstante  erlaubt. 

&: 

ist  das  »Hexadezimal-Vorzeichen«  für  Hex-Konstanten.  Bei¬ 
spiel:  &a02b  ist  das  Äquivalent  für  41003.  Die  Anzahl  der  Hex- 
Ziffern  ist  beliebig,  es  wird  maximal  eine  16-Bit-Zahl  errechnet. 

entspricht  dem  Ausdruck  CHR$(13)  und  kann  auch  genauso 
gehandhabt  werden. 

[a]: 

hat  die  gleiche  Wirkung  wie  die  ABS-Funktion.  Unterscheidet 
sich  aber  durch  die  bessere  Selbstdokumentation. 

ACS(a): 

berechnet  abhängig  von  der  jeweiligen  Einstellung  durch  RA¬ 
DIAN,  DEGREE  oder  GRAD  den  Arcus-Cosinus  von  a.  Die  hier 
angesprochene  Abhängigkeit  gilt  für  alle  trigonometrischen 
Funktionen. 

ACT(a): 

bestimmt  den  Arcus-Cotangens  von  a. 

ASN(a): 

ergibt  den  Arcus-Sinus  von  a. 

CHR$(z,l): 

ist  eine  Variante  von  CHR$(z).  z  entspricht  dabei  dem  Zeichen 
des  normalerweise  nur  1  Byte  langen  Strings.  Mit  I  läßt  sich 
nun  i*.  -er  zusätzlich  auch  die  Länge  variieren.  I  ist  dabei  von  0 
bis  255  definiert. 

COT(a): 

berechnet  den  Cotangens  von  a. 

CRSCOL: 

holt  die  momentane  Spaltenposition  des  Cursors. 

CRSLIN: 

holt  die  momentane  Zeilenposition  des  Cursors. 

CVF(a$): 

wandelt  den  fünf  Zeichen  langen  String  a$  in  eine  Fließkom¬ 
mazahl  um. 

CVI(a$): 

wandelt  den  zwei  Zeichen  langen  String  a$  in  eine  Integerzahl 
um. 

DEC(a$): 

berechnet  aus  dem  4-Byte-String  a$,  der  sich  aus  Hex-Ziffern 
aufbaut,  eine  dezimale  16-Bit-Zahl. 

DIV(a,b,): 

ist  gleichwertig  mit  dem  Ausdruck  INT(a/b). 

FRC(a): 

holt  die  Nachkommazahl  von  a. 

FUNCTION(a$): 

wandelt  den  maximal  88  Zeichen  langen  String  a$  in  Interpre¬ 
tercode  und  berechnet  ihn.  Beispiel:  y=FUNCTION(”5  +  2”). 
y  wird  der  Wert  7  zugewiesen.  Diese  Funktion  darf  nicht  im  Di¬ 
rektmodus  stehen. 

HEX$(a): 

wandelt  die  16-Bit-Zahl  a  in  einen  4-Byte-Hex.  String. 
INSTR(a$,b$): 

testet,  an  welcher  Stelle  aS  sich  in  b$  befindet.  Ist  a$  nicht  in 
bS  enthalten,  so  ist  das  Ergebnis  0,  ansonsten  entspricht  es 
der  Position  von  a$  in  b$.  a$  und  b$  müssen  mindestens  1 
Zeichen  lang  sein  und  a$  darf  nicht  länger  als  b$  sein.  INSTR 
darf  nicht  im  Direktmodus  stehen. 

LGD  (a): 

berechnet  den  dekadischen  Logarithmus  von  a. 
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LGU(a,b): 

bestimmt  den  Logarithmus  von  a  zur  Basis  b. 

MKF$(a): 

wandelt  die  Zahl  a  in  einen  fünf  Zeichen  langen  String. 
MKI$(a): 

wandelt  die  Integerzahl  a  in  einen  zwei  Zeichen  langen  String. 
MOD(a,b): 

bestimmt  den  ganzzahligen  Rest  aus  der  Division  von  a  durch 
b. 

RANDOM: 

entspricht  dem  Ausdruck  RND(1). 

RANDOM(a,b): 

entspricht  dem  Ausdruck  RND(1)*b+a. 

TIME$: 

ist  eine  modifizierte  Form  von  Tl$.  Der  Unterschied  liegt  darin, 
daß  bei  TIMES  noch  zwei  Trennzeichen  eingefügt  werden. 

USRn: 

entspricht  im  Prinzip  der  USR(a)-Funktion.  Unterschiede  lie¬ 
gen  darin,  daß  n  (was  der  Kennung  A,  B,  C,  D,  E,  F,  G  oder  H 
entspricht)  folgen  muß,  aber  keine  »Klammer-auf-Klammer- 
zu«-Sequenz.  Diese  Routine  (Aufruf  durch  JSRScefl)  muß  zu¬ 
sätzlich  an  USR-Routinen,  die  für  die  Standard-USR-Funktion 
ausgelegt  sind,  angehängt  werden.  Der  Vorteil  bei  den  USRn- 
Funktionen  liegt  nun  darin,  daß  man  den  USR-String  mit  meh¬ 
reren  Parametern  übergeben  kann.  Die  dazu  nötigen  Routinen 
sind: 

cefa  Test  auf  Klammer  auf  und  nächstes  Zeichen  holen. 
cd9e  Ausdruck  holen  und  String-  und  Integer-Flag  setzen. 
cd8d  Test  auf  numerischen  Ausdruck. 

cd8f  Test  auf  String. 

cef7  Test  auf  Klammer  zu  und  nächstes  Zeichen  holen, 
cefd  Test  auf  Komma  und  nächstes  Zeichen  holen. 

Damit  sind  alle  neuen  Befehle  und  Funktionen  vorgestellt. 
Bleibt  nur  noch,  Ihnen  viel  Spaß  beim  Programmieren  mit  »Ma- 
thematical  Basic«  zu  wünschen.  (Wolfgang  W.  Wirth/ev) 


100  rem - 

101  rem"  *  *  *  MATHEMATIC 

AL  BASIC  VI. 02  ***" 

102  rem - 

103  rem"  createt  in  october  19S4  by  W.Wi 
rth,Th.  Heuss  Ring  20,6556  Woellstein  " 

104  rem - 

105  rem 

106  rem 

107  rem 

108  cl r : i f  peek (55) +peek (56) *256>2921 1  t 
hen  pake  55 , 27 : poke56 , 1 14: cl r 

109  poke  36S79 , 14:  print  ehr t  ( 147 )  ;  ehr#  ( 1 
3) ; chr$ (14) ;chr$(5) ;spc<17) ;chrt(34) 

110  dim  cs (14) 

111  rem 

112  print"  Ladeprogramm  -für" 

113  pr i nt 

114  print"  " ; ehrt ( 18) ; "  Math.  Basic  VI. 
02  " 

1 15  print 

116  print"  Bas  Programm  wird" 

117  print 

118  print"  jetat  abgelegt." 

119  print 

120  print 

121  rem 

122  rem - hilfs 


r out i ne  ablegen  - 

123  rem 

124  pake  0,76 

125  pake  1,12 

126  pake  2,2 

127  rem 

128  for  i=512  to  543 

129  :  read  j 

130  :  cs=cs+j 

131  :  pake  i.j 

132  next 

133  rem 

134  i-f  cs— 2635  then  148 

135  rem 

136  print 

137  print 

138  print"  Datafehler  im" 

139  print 

140  print"  Hilfsrout. -Block  ! " : end 

141  r  em 

142  rem - hilfs 

routinenblock  - 

143  rem 

144  data  136 , 177,34,201,58, 144,2,233,3,23 

145  data47, 96, 32, 130,215,32, ,2,133,102,3 

.o 

146  data2, 10, 10, 10, 10,5, 102,76,148,215 

147  rem 

148  rem - haupt 

pragramm  ablegen - - - - 

149  rem 

1 50  or  i =0  to  3556 

151  :  print  i  ;  ehrt- ( 145) 

152  :  read  jt:  1  =usr  ( jt) 

153  :  cs (i/240)=cs (i/240) +1 :poke  29211+ 
i,l 

154  nex t 

155  rem 

156  rem - fehle 

rer  kennung - 

157  rem 

158  far  i =0  ta  14 

159  :  read  cs:if  cs(i)=cs  then  163 

160  :  print"  Fehler  im  Block  von" 

161  :  print“  Zei 1 e" ; 171+i *10; "bi s" ; 180+ 
i#10:print 

162  :  print:ef=l 

163  next 

164  rem 

165  if  ef  then  end 

166  sys  30414 

167  rem 

168  rem - mathe 

matical  basic  v 1 . 02  - 

169  rem 

170  data4B , d2 , 48 ,d2,48,d2,48,d2, 48 , d2 , 48 
, d2 , 48 , d2 , 48 , d2 , 20 , f 1 , ce , 20 , 82 , d7 , c9 , 04 

171  datadO , 62 , 88 ,b 1 , 22 , a2 , Of ,dd,73,73,f0 
, 05 , ca , 1 0 , f  8 , 30 , 53 , 8a , ea , ea , ea , ea , a2 , 04 

172  d ata6a, 66, 62, 66, 63, ca, d0,f 8,88, 10, eO 
,  a2 , 90 , 38 , 4c ,  49  ,  de  ,  20,  f  l.,ce,a5,  14,48,a5 

1 73  data  1 5 , 48 , 20 ,  f  7  ,  d7  ,  a.9 , 04 ,20 , 7d  , d4  ,  a8 
,a5, 14,20,81 ,72, a5 , 15,20,81 ,72,68,85, 15 

174  data68,B5, 14,4c, fb,d6, 48,29, Of ,20,8c 
, 72 , 68 , 4a , 4a , 4a , 4a , aa , bd , 73 , 73 , 88 , 9 1 , 62 

1 75  d at a60 , 4c , 58 , d6 , 4c , 48 , d2 , 20 , a6 , d3 , 20 
, f  a , ce , 20 , 9e , cd , 20 , a3 , d6 , c9 , 00 ,f 0 , ed , 48 

Listing  »Mathematical  Basic«  _ 
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241  dataa9,0f  , aS , Od  ,0e,90,8d  ,0e,90,a6,te 
I  ,66,61  ,  c6,60,d0,-f  a,ca,dO,f  7  ,  ce  ,  Oe  ,  90 , 88 

242  datadO , et , 8c , Oc  ,  90 , 60  ,  ad  ,  16,7t  ,4a, 29 
, 03 , a8 , 88 , 8c , 69 , 79 , 60 , a2 , 5b , aO , 7c , 20 , d4 

243  datadb ,46,66,a9,bc ,a0,d9,20,5b ,dc ,dO 
, Oe , a9 , dd , aO , e2 , 20 , a2 , db , a9 , 5b , aO ,7c, 4c 

244  data2B , da , a9 , 5b , aO , 7c , 20 , a2 , db , 20 , b4 
,  dt  ,  a9 , 5b  ,  aO ,  7c  ,  20 , 28  ,  da ,  20 , 49 ,  dB ,  20 , 49 

245  datad8 ,20 , 7 1  ,d-f  ,  a9 , 5b  ,  aO ,  7c  ,  20 , 0-f  ,  db 
, 4c , Ob , e3 , 20 , ed , 78 , a9 , dd , aO , e2 , 4c , 50 , d  8 

246  dat s2Ü , Ob , e3 , 4c , 34 , 79 , a? , dd , aO , e2 , 20 
,  , 50 , dB , 4c , b 1 , e2 , 7b , Oe , t a , 35 ,12, 7b , 00 , ad 

247  datatc ,90 , 86 , 65 , 2e , eO , d4 , 86 , 7e , a5 , dd 
,  5e  ,  4b  ,  50 , 55 , 5a  ,  20  ,  t  1  ,  ce  ,  a9 , 5-f  ,  aO  ,  00  ,  t  0 

248  dataOc  ,B8 ,8d  ,71 ,79,b9,5-F  ,79,a0,79,4c 
, 23 , da , 60 , 20 , 63 , 79 , 4c , 68 , e2 , 20 , 63 , 79 , 4c 

249  dataö 1 , e2 , 20 , 63 , 79 , 4c , b 1 , e2 , 20 , 63 , 79 
,4c ,41 ,79,20,t 1 ,ce,20,ed,78,a9,61 ,4c, 68 

250  dat.a79 ,  20 , 1 1  ,  ce , 20 , 3 1 , 79 , 4c ,97 , 79 , 20 
,  t  1 ,  ce  ,  20 ,  Ob  ,  e3 , 4c  ,  97 , 79 , 20  ,  -f  1  ,  ce  ,  20 , 3b 

25 1  data79 , 4c , 97 , 79 , 20 , t 1 , ce , 20 , 58 , de , a2 
, 2e , aO , 7a , 20 , d4 , db , 20 , cc , de , a9 , 2e , aO ,7a 

252  data4c  ,50 ,  dB  ,20 ,  -f  a ,  ce ,  20 ,8a ,  cd  ,20 ,  t  d 
, ce , a2 , 33 , aO , 7a , 20 , d4 , db , 20 , 8a , cd , a2 , 33 

253  dataaO  ,7a,  20  ,d4,db,a9,bc,  aO  ,  d9 , 20 , 0-f 
, db , a9 , 33 , aO , 7a , 20 , 28 , da , 20 , ba , 79 , a9 , 38 

254  da-taaO  ,  7a  ,  20 , 28  ,  da  ,  8-f  ,  00 , 00 , 79  ,  b3  ,  de 
, 4c , f 7 ,ce ,20 , t a ,ce ,20 ,8a ,cd , a2 ,29 , aO ,7a 

255  data2ü ,d4 ,db  ,  20 ,  -f  d  ,  ce ,  20 , 8a ,  cd  ,  a9 , 29 
,  aO  ,7a  ,  20  ,  Ot  ,  db  ,  20 ,  cc  ,  de  ,  4c  ,  t  7  ,  ce  ,  00 , 00 

256  dataOQ , 00 , 00 , 00 , 00 , 00 , 00 ,00,00,00,00 
, 00 , 00 , 00 , 00 , 00 , 00 , 00 , 4c , 54 , e2 , a2 , 08 , aO 

257  dataOO , 20 , 50 ,  t  e , 20 , 79 , 00 ,  dO , 1 1 , a9 ,01 
,  a2 , 38  ,  aO  ,  e4 , 4c  ,  49  ,  t  e  ,  a9 , 0  1 , 2c  ,  a9 , 00 , 85 

258  dataOa  ,  20 , 40 , 7a ,  4c  ,  6c  ,  el  ,  4c  ,  08  ,c-f  ,4c 
,  48  ,  d2 , 4c  ,  58 ,  d6 , 4c  ,  ab  ,  d3 , 20  ,  -f  1  ,  ce  ,  38  ,  bO 

259  data04 , 20 , 9e  ,  cd  ,  18,08  ,  a6 , 3a  ,  eB  , tQ , ed 
,2C,S2,d7,-f0,e2,c9,59,b0,el  ,8a,-f  0,02, bl 

260  data22 , 99 , 00 , 02 ,88,10,f8, 28 , a5 , 7a , 48 
, a5 , 7b , 48 , 08 , a9 , 00 , aO , 02 ,85 ,7a , 84 , 7b , 20 

261  data79 , c5 , 28 , bO , 12 , 20 , 73 , 00 , 20 , f d , 7e 
,  20 , 79 , 00  ,  c9 , 3a  ,  -f  0 ,  t  3  ,  a8 ,  t  0  ,  OB  ,  dO  ,  a8 , 20 

262  dat a73 ,00 , 20 , 8a , cd , 68 , 85 , 7b , 68 , 85 , 7a 
,  60 , 20  ,  t  1  ,  ce ,  20  ,  Bd  ,  cd  ,  20  ,  bt  ,  d  1  ,  a5 , 64 , 48 

263  dataa5 , 65 , 4B , a9 , 02 , 20 , 7d , d4 , 68 , aO ,01 
,91 ,62,4c ,t 6,d6,20,t 1 , ce , 20 , 8d , cd , a2 , f t 

264  data20 , cc , db , a9 , 05 , 20 , 7d , d4 , aO , 04 , b9 
,  -f  t  ,  00 , 9 1 , 62 , 88 , 1 0 ,  t  8 , 4c  ,  f  b  ,  d6 , 4 1 , 53 ,  ce 

265  data41 ,43, d3, 43, 4t  , d4 , 4 1 , 43  ,  d4 , 4c  ,  47 
, c4 , 4c , 47 , d5 , 43 , 56 , c9 , 43 , 56 , c6 , 4d , 4b , 49 

266  dataa4 , 4d , 4b , 46 , a4 , 43 , 52 , 53 , 4c , 49 , ce 
,43,52,53, 43 , 4t , cc , 54 , 49 , 4d , 45 , a4 , 49 , 4e 

267  data53 , 54 , d2 , 48 , 45 , 58 , a4 , 44 , 45 , c3 , 46 
,55 , 4e , 43 , 54 , 49 , 4t , ce , 4d , 4f , c4 , 44 , 49, d 6 

268  data 46 , 52 , c3 , 52 ,41 , 4e , 44 , 4t , cd , 52 , 41 
, 44 , 49 , 4 1 , ce , 44 , 45 , 47 , 52 , 45 , c5 , 47 , 52 , 4 1 

269  datac4,51 ,55,49, d4,a7, 4c, 4t ,43,41 ,54 
, c5 , 42 , 45 , 45 , dO , 43 , 4t , 4c , 4f , d2, 43 , 4c , d3 

270  data45,58,45,43,55,54,c5,44,4c,4t ,41 
, c  4 , 44 , 53 , 4 1 , 56 , c5 , 44 , 56 , 45 , 52 , 49 , 46 , d9 

271  dat a43 ,41 , 54 , 41 , 4c , 4t , c7 , 44 , 49 , 52 , 45 
,43,54,4t , 52, d9, 49, 4e, 49, 54, 49, 41 ,4c, 49 

272  data5a , c5 , 44 , ct , 55 , 4e , 54 , 49 , cc , 50 , 50 
, 52 , 49 , 4e , d4 , 4c , 50 , 52 , 49 , 4e , d4 , 52 , 45 , 4e 

273  data55 , 4d , 42 , 45 , d2 , 44 , 45 , 4c , 45 , 54 , c5 


,00,00,00,00,00,00,00,00,00,00,00,00, 00 

274  dataOO ,00,00,00,00,00,00,00,00,00,00 
,00,00,00,00,00, 00 , 00 , 00 ,00,00,00, 00 , 00 

275  dataOO , 00 ,00,00,00,00,00,00,00,00,00 
,00,00,31 ,c8,42,c7, Ie,cd,t8,c8,a5,cb,bt 

276  datacb,81 ,d0,06,cc,a5,c9,a0,c8,59,73 
, 9 1 , 7e , bt , 77 , 83 , c8 , de , 77 , 3b , c9 , 2t , c8 , 4b 

277  datac9,2d,dB,65,el ,53,el ,62, el ,26,73 
,24,d8,80,ca,a0,ca,57,c8,9c,c6, 13,77,86 

278  dataca, 27 , el ,bb ,el ,c4,el ,7b ,cb , 19,77 
, a4 , d3 , ad , a4 , d6 , cB , 4c , a2 , d3 , 20 , a6 , db , 84 

279  data0d,60,20,40,7a,4c,56,el ,00,00,00 
, 00 , 00 , 08 , ct , 08 , ct , 00 , 00 , 00 , 00 , 4d , 7e , 4d 

280  data7e, 4d ,7e , Oc ,73,4d , 7e ,4d ,7e,4d ,7e 
, 4d , 7e , 4d , 7e , 4d , 7e , 7t , 79 , 79 , 79 , 85 , 79 , a5 

28 1  data79 , 4d , 7e , 4d , 7e , 4d , 7e , 4d , 7e , 4d , 7e 
, eb , 73 , 4d , 7e , 4d , 7e , 4d , 7e , 08 , ct , 9 1 , 79 , 9c 

282  data79 , 8b , 79 , ae , 79 , 2e ,78,01 ,78,7a,7d 

, 8b ,7d , c7 ,7a ,e3, 7a , 49,7c , 46 ,7c , 00 ,7d ,9a 

283  dat a72, 5c ,72,2b ,72,6e,7a,ce,79,09,7a 
, b7 , 79 , 3e ,78,el ,7B,el ,78,el , 78 , 22 , f d , t 8 

284  datac8 ,3c , 7d , 9e , 78,75 , 78,5t ,e5,74,7a 
, 58, 7a, 55, 7c, 55, 7a, 81 ,76,81 ,76, 00,77, 5d 

285  dat a77 , 3 1 , 77 , 1 4 , 74 , 1 7 , 74 , c5 , 74 , 30 , 76 
, 08 , ct , 08 , ct , 08 , ct , 08 , ct , 08 , ct , 08 , ct , 08 
2B6  datact ,08, ct ,08, ct ,20, 84, ct ,B4,5e,8B 
, 84 , 7 1 , aO , 06 , 84 , 5d , aO , 24 , 20 , 68 , de , a9 , 00 

287  data8d , 07 , 01 , ad , 04 ,01 , 8d ,06 , 01 , ad , 03 
,01 ,Bd,O5,01 , ad, 02, 01 ,Bd,03,01 ,ad,01 ,01 

288  data8d ,02,01 ,a9 ,3a ,8d , 01 ,01 , 8d ,04 ,01 
,  4c  , ' ,d  ,  d4 , 4c  ,  48  ,  d2 ,  c9 , 2c  ,  t  O ,  Ot  ,  20 , 9e  ,  d7 

289  dataca,eO, 17,b0,t 1 ,86,d6,20,79,00,t0 
, Oa , 20 , t 1 , d7 , ca , eO , 16 , bO , e2 , 86 , d3 , 4c , 87 

290  datae5,a5, 14,48, a5, 15,48,20,79,00,20 
, 6b, c9,a5, 15, dO, cd, a6, 14,68,85, 15,68,85 

291  data 14 , ad , a2 ,Od , 4c ,et , d6 ,20 , t 1 , ce , 20 
, a3 , d6 , c9 , 02 , dO , b5 , 86 , 64 , 84 , 65 , 4c , 6 1 , ct 

292  data20 , t 1 , ce ,20 , a3 , d6 , c9 ,05 , dO , a4 , 4c 
,4t ,7c ,93,0e,05,b0,c0,c0,c0,c0,c0,c0,c0 

293  datacO,cO,cO,cO,cO,cO,cO,cO,cO,cO,cO 
, cO , cO , ae , dd , 9c , 20 , 20 , 4t , 50 , 45 , 52 , 4 1 , 54 

294  dat a49 , 4e, 47, 20, 53, 59, 53, 54, 45, 4d ,20 
, 20 , 05 , dd , dd , 20 , cd , c 1 , d4 , c8 , 2e , 20 , c2 , c 1 

295  datad3, c9 , c3, 20,20, d6 ,31 ,2e ,30,32 ,20 
, dd , dd , 9c , 42 , 59 , 20 , d7 , 2e , d7 , 49 , 52 , 54 , 48 

296  data20 , 30 , 36 ,37 , 30 ,33 , 2t ,38,36,38,05 
,dd ,ad ,cO,cO,cO,cO,cO,cO,cO,cO,cO,cO,cO 

297  dat acO , cO , cO , cO , cO , cO , cO , cO , cO , bd , Od 
, Od , 20 , 42 , 4 1 , 53 , 49 , 43 , 20 , 4d , 45 , 4d , 4t , 52 

298  data59,3a, 1 1 ,0d , 20 , 00 , 3a , c4 , 83 , c4 , 1 b 
,7t ,d6,7t ,t4,7e,d4,7e,bt , ea , 85 , 7e , 68 , 7e 

299  dataOa ,t4,4a,t3,c7 ,t2, 09 ,t3,t3,t3, Oe 
,t2,7a,t2,70,t7,t5,t 1 ,et ,t3,d2,te,49,t5 

300  data85 , 1 6 , 68 , 68 , ad , 16,7t , 48 , aa , 4c , ad 
,ct , 20 , Sa, cd , 46 ,66, a9 , 5d , 4c , t t , ce ,00 , 4c 

301  data56,tt , 4c ,de , t e ,48 , Bä , 48 , 9S , 48 , ad 
, ld,91 , 10,t0,2d, le,91 , aa , 29 , 02 , t 0 , eb , 2c 

302  data 11 , 91 , 20 ,34 , t 7 ,20 , e 1 , t t , dO , dd , 20 
, a9 , 7e , 6c , 02 , cO , 4c , 3b , c9 , 4c , 7a , 77 , 20 , 9e 

303  dataed ,a5,61 ,t0,t3,20,79,00,c9,a7,dü 
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, ef , 20 , 73 , 00 , bO , ea , 4c , aO , c8 , 00 , 00 , 78 , a2 

304  data2d  ,  aO  ,7e  ,20 , 56  ,f  d  ,  a2 ,0b  ,  bd  ,  21 , 7e 
,9d  ,00, 03, ca,  10,f 7,20,f 9,f d  ,20, 18,e5,a9 

305  dataOe , 8d , Of , 90 , a9 , 01 , Bd ,86 , 02 , ea , 60 
, 4c , f  3 , de , 4c , c2 , 73 , a9 , 00 , 85 , Od , 20 , 73 , 00 

306  data90,-f  1  , c9  , el  ,  bO  ,  f  0  ,  c9  ,b4 , 90  ,  ec  ,  20 
,  Oe  ,7-f  ,  4c  ,  Bd  ,  cd  ,  4c  ,  08  ,  cf  ,  4c , a5, c9 , 4c , 12 

307  datac8 , 20 , 73 , 00 , 20 ,  f  d  ,  7e ,  4c  ,  ae  ,  c7 ,  f  O 
, ce , aa , 1 0 , ec , c9 , cb , f  0 , eb ,c9 , a3 , 90 , 04 , c9 

308  datael  ,  90 ,  dd  ,  Oa  ,8d,16,7-f  ,20 , 73 , 00 , 6c 
, c8 , 7c , 00 , 00 , OO , a6 ,7a, aO , 04 , 84 , Of , bd ,00 

309  data02, 10,07,c9,ff ,f 0,3e,e8,d0,f 4,c9 
, 20 , f  O , 37 , 85 , 08 , c9 , 22 , f  0 , 56 , 24 , Of , 70 , 2d 

310  datac9,3f ,d0,04,a9,99,d0,25,c9,30,90 
, 04 , c9 , 3c , 90 , 1 d , 84 , 71 , aO , 00 , 84 , Ob , 88 ,86 

311  data7a , ca , c8 , e8 , bd ,00 , 02,38 ,f 9 , 9e, cO 
, f  O , f  5 , c  9 , 80 , dO , 30 , 05 , Ob , a4 , 7 1 , e8 , c8 , 99 

312  dataf b ,01 ,b9,f b ,01 , f 0 , 59 , 38 , e9 , 3a , f O 
, 04 , c9 , 49 , dO , 02 , 85 , Of , 38 , e9 , 55 , dO , 9f ,85 

313  data08 ,bd , 00 , 02 , f O , df , c5 ,08 , f O , db , c8 
, 99 , f  b , 0 1 , e8 , dO , f  O , a6 , 7a , e6 , Ob , c8 , b9 , 9d 

314  datac0,10,fa,b9,9e,c0,d0,b4,a0,ff,ca 
, c8 , e8 , bd , 00 , 02 , 38 , f  9 , OO , 7b , f  O , f  5 , c9 , 80 

315  datadO ,02 ,f 0 , ad , a6 ,7a , e6 ,0b ,cS , b9 ,f f 
,7a, 10, fa,b9, 00,7b, d0,e2,bd, 00, 02, 10,9b 

316  data4c ,09 ,c6,4c,ef ,c6,bl ,5f ,4c, la,c7 
, c9 , cc , 90 ,f7 ,c9,ff ,fO, f 3 ,24 , Of , 30 , ef ,84 

317  data49,3S,e9,cb ,aa,aO,f f , ca, f O, 08, c8 
, b  9 , 00 , 7b , 1 0 , f  a , 30 , f  5 , c8 , b  9 , 00 , 7b , 30 , d3 

318  data20 , 47 ,cb,dO,f5 

319  rem 

320  rem - pruef 

summen  — 

321  rem 

322  data 

323  data 

324  data 

325  data 

326  data 

327  data 

328  data 

329  data 

330  data 

331  data 

332  data 

333  data 

334  data 

335  data 

336  data 

ready . 


Listing  »Mathematical  Basic«  (Schluß) 


Ohne  gutes 
Werkzeug 
geht  es  nicht: 

SMON  Teil  2 

Der  Maschinensprache-Monitor  SMON 
wird  immer  leistungsfähiger.  Dieser  2. 
Teil  erweitert  ihn  um  wichtige  Ausga¬ 
be-Routinen,  läßt  das  Verschieben  ei¬ 
nes  Programms  mit  und  ohne  Adreß- 
umrechnung  zu  und  kann  Zahlen  vom 
Dezimal-  in  das  Binärsystem  und  um¬ 
gekehrt  umrechnen. 

ma^*/ 

Wir  hoffen,  daß  wir  Ihnen  in  der  letzten  Ausgabe  nicht  zuviel 
zugemutet  haben,  und  daß  sich  Ihre  wunden  Finger  inzwi¬ 
schen  wieder  erholen  konnten.  Bestimmt  haben  Sie  im  vergan¬ 
genen  Monat  schon  eifrig  mit  dem  neuen  Monitor  gearbeitet 
und  sind  inzwischen  mit  den  bisherigen  Befehlen  vertraut. 
Denn  nun  folgt  der  zweite  Teil  und  mit  diesem  natürlich  wieder 
einige  neue  Befehle,  die  es  zu  erklären  gilt. 

Und  das  bieten  wir  Ihnen  heute: 

l/O-SET,  LOAD,  SAVE,  PRINTER-SET,  die  verschiedenen  Zah¬ 
lenumrechnungen  (HEX-DEZ-BIN-ADD-SUB),  OCCUPY, 
CONVERT,  VERSCHIEBEN  und  WRITE. 

I/O-SET 

1 01  legt  die  Device-Nummer  für  LOAD  und  SAVE  auf  1  (Kas¬ 
sette).  Jedes  Laden  und  Abspeichern  erfolgt  jetzt  auf  das  an¬ 
gegebene  Gerät.  Die  voreingestellte  Device-Nummer  ist  8  (für 
die  Floppy  also:  I  08).  Wenn  Sie  nur  mit  der  Floppy  arbeiten, 
brauchen  Sie  diesen  Befehl  also  nicht. 

LOAD 

L  "Name"  lädt  ein  Programm  vom  angegebenen  Gerät  (wie 
oben  beschrieben)  an  die  Originaladresse  in  den  Speicher.  Die 
Basic-Zeiger  bleiben  bei  diesem  Ladevorgang  unbeeinflußt, 
das  heißt,  sie  werden  nicht  verändert. 

Beispiel:  Unser  Monitor  soll  an  seiner  Originaladresse 
(SCOOO)  im  Speicher  stehen.  Also  brauchen  Sie  ihn  nur  mit 
»L  "SMON”«  zu  laden,  damit  er  dort  erscheint.  Wenn  Sie  einmal 
ein  Programm  an  eine  andere  als  die  Originaladresse  laden 
wollen,  dann  bietet  Ihnen  SMON  dazu  folgende  Möglichkeit:  ’L 
"Name”  ADRESSE  lädt  ein  Programm  an  die  angegebene 
Adresse.  Nehmen  Sie  doch  bitte  noch  einmal  unser  letztes 
Test-Programm  und  geben  es  mit  dem  Assembler  ab  Adresse 
$4000  ein.  Speichern  Sie  es  mit  »’S  "SUPERTEST”  4000 
4023«  ab  und  laden  es  dann 
1.  an  die  Originaladresse  (L  "SUPERTEST”)  und 


31231 

25675 

28397 

31427 

30997 

33043 

30573 

30423 

28240 

26807 

21966 

26340 

31124 

29634 

27953 
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2.  an  eine  andere  Adresse  (mit  L  ”SUPERTEST!5000  zum 
Beispiel  nach  $5000). 

Schauen  Sie  sich  danach  mit  dem  Disassembler-Befehl  bei¬ 
de  Routinen  einmal  an.  Sie  werden  feststellen,  daß  beide  Pro¬ 
gramme  zwar  bis  auf  die  BRANCH-Befehle  gleich  aussehen, 
daß  das  Programm  in  $5000  aber  nicht  funktionieren  kann,  da 
es  eine  falsche  Adresse  verwendet  (5002  LDA  400E,Y).  Ein 
anderes  Beispiel  dazu:  Ein  Autostart-Programm  beginnt  bei 
$0120,  läßt  sich  aber  in  diesem  Bereich  nicht  untersuchen,  da 
dort  der  Prozessor-STACK  (im  Bereich  von  $0100  bis  $01  FF) 
liegt,  der  vom  Prozessor  selbst  ständig  verändert  wird.  Wenn 
Sie  nun  L  "Name”  4120  eingeben,  befindet  sich  das  Pro¬ 
gramm  anschließend  bei  $4120  (nicht  an  der  Originaladresse 
$0120)  und  Sie  können  es  ohne  Einschränkungen  — von  den 
falschen  Absolut-Adressen  abgesehen  —  disassemblieren. 

SAVE 

S  ”Name”,  ANFADR  ENDADR  speichert  ein  Programm  von 
ANFADR  bis  ENDADR-1  unter  »Name«  auf  die  Floppy  ab,  da 
diese  —  wie  wir  ja  inzwischen  wissen  —  das  voreingestellte 
Gerät  ist.  Wenn  Sie  auf  Kassette  abspeichern  wollen,  setzen 
Sie  vorher  mit  »I  01«  die  Device-Nummer  auf  1. 

Beispiel:  S”SUPERTEST”4000  4020  speichert  das  Pro¬ 
gramm  mit  dem  Namen  »SUPERTEST«  (es  steht  im  Speicher 
von  $4000  bis  $401 F)  auf  Diskette  ab.  Bitte  beachten  Sie 
auch  bei  diesem  Befehl,  daß  die  Endadresse  auf  das  nächste 
Byte  hinter  dem  Programm  gesetzt  wird. 

PRINTER-SET 

P  02  setzt  die  Primäradresse  für  den  Drucker  auf  2.  Vorein¬ 
gestellt  ist  hier  die  4  als  Gerätenummer  (zum  Beispiel  für 
Commodore-Drucker).  Vielleicht  haben  Sie  es  ja  schon  be¬ 
merkt:  Bei  allen  Ausgabe-Befehlen  (wie  D,  M  etc.)  können  Sie 
auch  den  Drucker  ansprechen,  wenn  Sie  das  Kommando  ge- 
shiftet  eingeben.  Die  Ausgabe  erfolgt  dann  gleichzeitig  auf 
Bildschirm  und  Drucker.  (Beachten  Sie  bitte  die  Änderung  für 
die  Druckerausgabe  am  Schluß  des  Artikels.) 


Ein  bißchen  Rechnerei 


Die  folgende  Befehlsgruppe  enthält  Befehle  zur  Zahlenum¬ 
rechnung.  Sie  wissen  ja:  Der  Mensch  mit  seinen  zehn  Fingern 
neigt  eher  zur  dezimalen  Rechenweise,  aber  der  Computer 
bevorzugt  das  Binärsystem,  weil  er  nur  zwei  Finger  hat  (siehe 
Netzstecker).  Ein  Kompromiß  ist  das  Hexadezimalsystem, 
denn  das  versteht  keiner  von  beiden.  Um  Verständnis- 
Schwierigkeiten  mit  Ihrem  Liebling  aus  dem  Weg  zu  gehen,  ha¬ 
ben  Sie  aber  SMON. 

UMRECHNUNG  DEZ— HEX 

#  (Dezimalzahl)  rechnet  die  Dezimalzahl  in  die  entsprechende 
Hexadezimalzahl  um.  Hierbei  können  Sie  die  Eingabe  in  belie¬ 
biger  Weise  vornehmen,  da  SMON  Zahlen  bis  65  535  um¬ 
rechnet.  Beispiel:  #12,  #144,  #3456,  #65533  und  so  wei¬ 
ter. 

UMRECHNUNG  HEX-DEZ 

$  (Hexadezimalzahl)  rechnet  die  Hexadezimalzahl  in  die  ent¬ 
sprechende  Dezimalzahl  um.  Die  Eingabe  muß  hierbei  zwei¬ 
stellig  beziehungsweise  vierstellig  erfolgen.  Ist  diese  Zahl  klei¬ 
ner  als  $100  (  =  255),  wird  zusätzlich  auch  der  Binärwert  aus¬ 
gegeben. 
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Beispiel:  $12,  $0012,  $0D,  $FFD2,  etc.  In  den  ersten  drei 
Beispielen  erfolgt  die  Anzeige  auch  in  binärer  Form. 

UMRECHNUNG  BINÄR  — HEX, DEZ 

%  (Binärzahl  (achtstellig)  rechnet  die  Binärzahl  in  die  ent¬ 
sprechenden  Hexa-  und  Dezimalzahlen  um.  Bei  diesem  Befehl 
müssen  Sie  genau  acht  Binärzahlen  eingeben.  Falls  Sie  einmal 
versehentlich  mehr  eingeben  sollten,  werden  nur  die  ersten 
acht  zur  Umrechnung  herangezogen.  Beispiel:  %0001 1111, 
%10101011 

ADD-SUB 

?  2340  +  156D  berechnet  die  Summe  der  beiden  vier  (!)- 
stelligen  Hex-Zahlen.  Neben  der  Addition  ist  auch  Subtraktion 
möglich. 


Programme  auf  dem  Rangierbahnhof 


OCCUPY  (Besetzen) 

O  (ANFADR  ENDADR  HEX-Wert)  belegt  den  angebenen  Be¬ 
reich  mit  dem  vorgegebenen  HEX-Wert.  BeispiekO  5000 
8000  00  füllt  den  Bereich  von  $5000  bis  $7FFF  mit  Nullen. 

Man  kann  mit  »OCCUPY«  aber  nicht  nur  Speicherbereiche 
löschen,  sondern  auch  mit  beliebigen  Werten  belegen.  Häufig 
hat  man  das  Problem,  festzustellen,  welcher  Speicherplatz 
von  einem  Programm  wirklich  benutzt  wird.  Wir  füllen  den  in 
Frage  kommenden  Bereich  dann  zuerst  zum  Beispiel  mit  »AA« 
und  laden  dann  unser  Programm.  Probieren  Sie  bitte  das  fol¬ 
gend  eispiel:  Füllen  Sie  den  Speicherbereich  von  $3000 
bis  $6000  mit  $AA,  und  laden  Sie  dann  unser  SUPERTEST- 
Programm.  Beim  Disassemblieren  können  Sie  erkennen,  daß 
unser  kleines  Programm  exakt  zwischen  vielen  AAs  einge¬ 
bettet  ist. 

WRITE 

W  (ANFADRalt  ENDADRalt  ANFADRneu)  verschiebt  den 
Speicherbereich  von  ANFADRalt  bis  ENDADRalt  nach  ANF¬ 
ADRneu  ohne  Umrechnung  der  Adressen!  Unser  kleines  Test¬ 
programm  möge  noch  einmal  als  Beispiel  dienen:  W  4000 
4020  6000  verschiebt  das  oben  angesprochene  Programm 
von  $4000  nach  $6000. 

Hierbei  werden  weder  die  absoluten  Adressen  umgerech¬ 
net  noch  die  Tabellen  geändert.  Letzteres  ist  sicherlich  er¬ 
wünscht,  aber  denken  Sie  daran,  daß  das  verschobene  Pro¬ 
gramm  nun  nicht  mehr  lauffähig  ist,  da  die  absoluten  Adressen 
nicht  mehr  stimmen  (zum  Beispiel  bei  dem  Befehl  LDA 
400E,Y).  Falls  Sie  jetzt  »G6000«  eingeben,  um  das  Programm 
zu  starten,  werden  Sie  sich  sicherlich  wundern,  daß  es  den¬ 
noch  läuft.  Doch  löschen  Sie  einmal  das  Programm  in  $4000 
(mit  »04000  4100  AA«)  und  starten  das  Programm  in  $6000 
noch  einmal!  Seltsam,  nicht?  Abhilfe  schafft  der  nächste  Be¬ 
fehl. 

VARIATION 

V  (ANFADRalt  ENDADRalt  ANFADRneu  ANFADR  ENDADR) 
rechnet  alle  absoluten  Adressen  im  Bereich  von  ANFADR  bis 
ENDADR,  die  sich  auf  ANFADRalt  bis  ENDADRalt  beziehen, 
auf  ANFADRneu  um.  Kompliziert?  Nicht,  wenn  Sie  sich  klarma¬ 
chen,  daß  die  ersten  drei  Adressen  exakt  den  Eingaben  beim 
»W«-Befehl  entsprechen.  Neu  hinzukommen  nur  die  beiden 
Adressen  für  den  Bereich,  in  dem  die  Änderung  tatsächlich  er¬ 
folgt. 

Um  unser  mit  »W«  schon  verschobenes  Programm  auch 
wieder  lauffähig  zu  machen,  geben  Sie  folgendes  ein:  V  4000 
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4020  6000  6000  600E.  Damit  werden  alle  Absolutadressen, 
die  im  Bereich  von  $6000  bis  $600E  —  dahinter  steht  die  Ta¬ 
belle  —  liegen  und  sich  bisher  auf  $4000  bis  $4020  bezogen 
haben,  auf  den  neuen  Bereich  umgerechnet.  Probieren  geht 
wie  immer  über  kapieren. 

Eine  Zusammenfassung  dieser  beiden  Befehle  ermöglicht: 

CONVERTIEREN 

verschieben  eines  Programmes  mit  Adreßumrechnung) 

C  (ANFADRalt  ENDADRalt  ANFADRneu  ANFADRges  END- 
ADRges)  verschiebt  das  Programm  von  ANFADRalt  bis  END¬ 
ADRalt  zur  ANFADRneu  und  zwar  mit  Umrechnung  der  Adres¬ 
sen  zwischen  ANFADRges  und  ENDADRges 

An  unserem  kleinen  Testprogramm  läßt  sich  wieder  einmal 
demonstrieren,  wie  der  Befehl  eingesetzt  wird.  Laden  Sie  es 
also  mit  »L’SU PERTEST”«  und  schauen  es  mit  »D  4000«  an. 
Jetzt  wollen  wir  an  der  Adresse  $4008  einen  3-Byte-Befehl 
einfügen:  C  4008  4020  400B  4000  4011  verschiebt  das 
Programm  von  $4008  bis  $4020  zur  neuen  Anfangsadresse 
$400B.  Dabei  werden  im  Bereich  von  $4000  bis  $4011 
(neue  Endadresse  des  »aktiven«  Programmes!)  die  Sprung¬ 
adressen  umgerechnet.  Nun  können  Sie  ab  Adresse  $4008 
einen  3-Byte-Befehl  einfügen,  zum  Beispiel  STY  0286.  Da¬ 
zu  geben  Sie  bitte  ein: 

A  4008 

4008  STY  0286 
F 

Überzeugen  Sie  sich  davon,  daß  SMON  die  Befehle  korrekt 
umgerechnet  hat,  indem  Sie  unser  Beispiel  disassemblieren 
(D  4000)  und  anschließend  mit  G  4000  starten.  Besitzer  ei¬ 
nes  Farbmonitors  werden  in  helle  Begeisterung  ausbrechen. 
Vorsicht  ist  geboten,  wenn  Tabellen  oder  Text  vorhanden  sind. 
SMON  wird  versuchen,  diese  als  Befehle  zu  disassemblieren 
und  gegebenenfalls  umzurechnen.  Dabei  können  unvorher¬ 
sehbare  Verfälschungen  auftreten.  Aus  diesem  Grunde  ist  im 
Beispiel  die  Endadresse  des  zu  ändernden  Bereiches  auf 
$4011  und  nicht  etwa  auf  $4023  gelegt  worden.  Wenn  Sie 
größere  Programme  zu  verschieben  haben,  sollten  Sie  die 
Kommandos  W  und  V  anwenden,  beziehungsweise  einen  As¬ 
sembler  einsetzen,  der  es  Ihnen  gestattet,  beliebige  Einfügun¬ 
gen,  Verschiebungen  und  sonstige  Änderungen  vorzuneh¬ 
men.  Das  C-Kommando  eignet  sich  in  erster  Linie  für  kleinere 
Änderungen  innerhalb  eines  Programms. 


Der  Blick  hinter  die  Kulissen 


Wie  beim  letzten  Mal  wollen  wir  noch  einen  kleinen  Blick  auf 
das  Programm  werfen.  Wir  haben  zwei  häufig  vorkommende 
Programmteile  ausgewählt.  Wenn  Sie  nach  erfolgreichem  Ein¬ 
tippen  der  neuen  DATAs  einmal  mit  »D  C84F«  die  »LOAD- 
SAVE«-Routine  listen,  sehen  Sie,  daß  diese  sehr  wenig  Platz 
beansprucht.  Das  Geheimnis  dieser  Beschränkung  liegt  in  der 
Tatsache  begründet,  daß  wir  hier  auf  Betriebssystem-Rou¬ 
tinen  zurückgegriffen  haben.  Doch  dazu  nachher  mehr;  erst 
einmal  die  angesprochene  Routine  von  Anfang  an: 


LOADSAVE 

LDY 

#$02 

STY 

*$BC 

DEY 

STY 

*$B9 

STY 

*$BB 

DEY 

STY 

*$B7 

Die  Speicherstellen  $BB/$BC  enthalten  jetzt  die  Adresse 
$0201,  also  den  Beginn  des  Basic-Eingabepuffers.  In  $B9 
befindet  sich  der  Wert  01 ,  das  bedeutet,  daß  die  Sekundär¬ 
adresse  für  absolutes  Laden  voreingestellt  ist.  Die  Speicher¬ 
stelle  $B7  enthält  die  Länge  des  Dateinamens,  hier  erst  einmal 
0. 


JSR 

GETCHRERR 

CMP 

#’  ”  ’ 

BNE 

LSERROR 

Überprüft,  ob  Anführungsstriche  eingegeben  wurden.  Falls 
nicht,  springt  unser  Programm  in  die  Routine  »LSERROR«  und 
bricht  ab. 


JSR 

GETCHRERR 

STA 

($BB),Y 

INY 

INC 

*$B7 

CMP 

#”” 

BNE 

LSI 

In  diesem  Programmteil  wird  der  Filename  eingelesen  und 
in  die  Adresse  gespeichert,  die  in  $BB/$BC  enthalten  ist 
($0201).  Gleichzeitig  wird  $B7  als  Zähler  für  die  Namenlänge 
so  lange  erhöht,  bis  das  zweite  Anführungszeichen  auftaucht. 
Damit  ist  der  Filename  gespeichert,  beginnend  bei  $0201. 


DEC 

*$B7 

LDA 

IO.NR 

STA 

*$BÄ 

LDA 

*COMMAND 

CMP 

#*S* 

BEQ 

SAVE 

Da  die  Namenlänge  um  eins  zu  groß  geraten  ist  (das  letzte 
Zeichen  war  ein  »”«),  muß  sie  dekrementiert  werden.  Die  ge¬ 
wählte  oder  voreingestellte  I/O-Nummer  (Device-Nummer) 
soll  in  $BA  gespeichert  werden,  damit  die  Betriebssystemrou¬ 
tine  nachher  das  richtige  Gerät  anspricht.  Zum  Abschluß  über¬ 
prüft  der  Compare-Befehl,  ob  das  Kommando  »S«  gewählt  ist, 
um  dann  dorthin  zu  verzweigen. 


LOAD  JSR 

GETRET 

BEQ 

LOAD1 

LDX 

#$C3 

JSR 

GETADR 

LDA 

#$00 

STA 

*$B9 

Wir  sind  nun  an  der  Stelle  des  Befehls  angelangt,  an  der  sich 
herausstellen  muß,  ob  das  Programm  an  seine  Originaladres¬ 
se  (absolut)  oder  an  eine  andere  Adresse  geladen  werden  soll. 
Die  Unterroutine  »GETRET«  prüft,  ob  unmittelbar  nach  dem 
Namen  ein  »RETURN«  folgt  und  führt  eine  Verzweigung  nach 
»LOAD1«  durch,  falls  dieses  eintritt.  Ansonsten  holen  wir  uns 
die  Adresse  und  laden  das  vorgesehene  Programm  dorthin, 
nachdem  in  Speicherstelle  *  $B9  eine  Null  gespeichert  ist,  da 
ein  absolutes  Laden  nicht  erfolgt.  Die  Routine  »GETADR«  ist  so 
aufgebaut,  daß  sie  die  nächsten  2  Bytes  an  die  mit  dem  X- 
Register  gewählte  Stelle  in  der  Zeropage  ablegt.  Dann  führen 
wir  ebenfalls  »LOAD1«  durch. 
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LOAD1 

LDA 

#$00 

JMP 

($0330) 

SAVE 

LDX 

#$C1 

JSR 

GETADR 

LDX 

#$AE 

JSR 

GETADR 

JMP 

($0332) 

In  »L0AD1«  erfolgt  der  indirekte  Sprung  über  $0330  in  die 
LOAD-Routine  des  Betriebssystems. 

Die  SAVE-Routine  erfragt  vorher  noch  die  fehlenden  Adres¬ 
sen  (Anfangs-  und  Endadresse  des  Programmes,  das  gespei¬ 
chert  werden  soll),  speichert  sie  nach  $C1/C2  und  $AE/AF 
und  springt  dann  in  die  SAVE-Routine.  Noch  ein  Wort  zu  den 
angesprochenen  Betriebssystem-Routinen:  Mittlerweile  gibt 
es  für  den  C  64  mindestens  drei  verschiedene  Versionen  des 
Betriebssystems  von  Commodore.  Es  sind  zwar  meist  nur  klei¬ 
ne  Änderungen,  aber  die  können  fatale  Folgen  haben,  wenn 
sich  die  Einsprungadressen  ändern.  Deshalb  gibt  es  einen  be¬ 
sonderen  Bereich,  das  KERNAL,  der  einen  Sprungverteiler  für 
die  wichtigsten  Routinen  enthält.  Dieser  wird  grundsätzlich  nie 
geändert.  Beziehen  Sie  deshalb  Ihre  Einsprungadressen  im¬ 
mer  auf  die  KERNAL-Routinen,  um  sicher  zu  sein,  daß  Ihr  Pro¬ 
gramm  auch  noch  mit  der  zwölften  Version  des  Betriebssy¬ 
stems  läuft.  Die  KERNAL-Einsprünge  stehen  ganz  hinten  ab 
$FF81  im  Speicher. 

Als  zweites  ein  Vergleich,  der  in  Maschinenprogrammen 
häufig  und  in  allen  Variationen  auftaucht:  Es  handelt  sich  dabei 
um  den  Vergleich  zweier  Adressen.  Nun  sind  Adressen  leider 
16-Bit-Werte,  unser  Prozessor  aber  kann  nur  8  Bit  auf  einmal 
verarbeiten.  Gehen  wir  einmal  von  folgenden  Bedingungen 
aus:  Ein  Programm  soll  von  $4000  bis  $4020  gelistet  wer¬ 
den.  Die  Zeiger  für  das  Ende  befinden  sich  in  Speicherstelle 
ENDLO  (Uowbyte)  und  ENDHI  (Highbyte).  »PCL«  (Programm- 
Counter-Low)  und  »PCH«  (Programm-Counter-High)  geben 
den  augenblicklichen  Stand  des  Programmes  an.  Dann  erfolgt 
die  Abfrage  auf  erreichtes  Ende  mit  dieser  Befehlsfolge: 


VERGL 

LDA 

PCL 

CMP 

ENDLO 

LDA 

PCH 

SBC 

ENDHI 

BCS 

FERTIG 

WEITER 

JMP 

AUSGABE 

FERTIG 

JMP 

ENDE 

Solange  PCL  und  PCH  kleiner  sind  als  die  Endwerte  geht 
das  Programm  »WEITER«. 

Sobald  aber  PCL  und  PCH  die  Werte  von  ENDLO  und  END¬ 
HI  erreicht  haben,  wird  das  Carry-Flag  gesetzt  und  die  Abfage 
mit  BCS  FERTIG  würde  das  Auflisten  anhalten.  Daß  es  bei  der 
Anwendung  einige  Probleme  geben  kann,  sieht  man  daran, 
daß  die  Ausgabe  auch  schon  unterbrochen  wird,  wenn  gerade 
erst  das  Programmende  erreicht  ist.  (Der  letzte  Befehl  könnte 
»unter  den  Tisch  fallen«.)  Aber  kein  Problem  ohne  Problemlö¬ 
sung  —  und  natürlich  ohne  weitere  Probleme,  die  Sie  aber  mit 
ein  bißchen  Nachdenken  sicher  selbst  lösen  können. 

Hinweise  zum  Abtippen 

Tippen  Sie  das  Ladeprogramm  sorgfältig  ab,  speichern  Sie 
es  (!)  und  starten  Sie  mit  RUN.  Sollte  es  sich  wider  Erwarten 
auf  Anhieb  mit  READY  melden,  haben  Sie  das  Schlimmste  ge¬ 
schafft.  Ansonsten  beseitigen  Sie  nun  alle  Fehler  bis  es  zum 
READY  durchläuft.  Jetzt  laden  Sie  das  alte  Ladeprogramm  aus 


der  letzten  Ausgabe  und  starten  es.  Nach  dem  READY  starten 
Sie  SMON  mit  SYS  49152.  Als  erstes  probieren  Sie  nun  den 
Befehl  »S«,  um  SMON  selbst  abzuspeichern,  diesmal  nicht 
mehr  als  Basic-Lader,  sondern  als  Maschinenprogramm. 

S  ”SMON  $COOO”  C000  CAB7 

SMON  belegt  jetzt  11  Blöcke  auf  der  Diskette.  Ab  jetzt  kön¬ 
nen  Sie  SMON  direkt  mit  »LOAD  ”SMON  $0000”, 8,1«  laden 
und  mit  SYS  49152  starten. 

Noch  zwei  Hinweise  in  eigener  Sache:  Einige  wenige  (!)  Le¬ 
ser  haben  uns  darauf  aufmerksam  gemacht,  daß  die  Drucker¬ 
ausgabe  auf  bestimmten  (exotischen)  Druckern  bisweilen  klei¬ 
nere  Unzulänglichkeiten  aufweist.  Kurz  und  schlecht,  uns  ist 
in  der  letzten  Folge  ein  Programmierfehler  unterlaufen:  Beim 
Disassemblieren  verschwindet  die  letzte  Zeile  vor  dem  Strich 
(— -)  im  Drucker  und  ward  nicht  mehr  gesehen.  So  etwas  pas¬ 
siert,  wenn  man  kurz  vor  Redaktionsschluß  noch  auf  die 
Schnelle  kleine  »Verbesserungen«  vornimmt. 

Für  die  Korrektur  ist  folgendes  notwendig:  Listen  Sie  mit 
»M  C56C  C57B«  zwei  Zeilen,  gehen  mit  dem  Cursor  in  die  be¬ 
treffenden  Zeilen  und  geben  folgende  Änderung  ein: 


:C56C 

09 

C9 

30 

FO 

05 

C9 

21 

DO 

:C574 

11 

EÄ 

20 

94 

C4 

20 

51 

C3 

— 

— 

— 

— 

— 1 

Nur  die  fetten  Werte  müssen  geändert  werden,  alle  anderen 
können  Sie  stehen  lassen.  Denken  Sie  bitte  bei  jeder  Ände¬ 
rung  ■  an,  daß  Sie  die  Zeile  nur  mit  Drücken  der  RETURN- 
Taste  an  den  Computer  übergeben.  Zur  Probe  können  Sie  ja 
noch  einmal  listen... 

Wir  haben  nach  dem  letzten  Artikel  eine  Menge  Anrufe  er¬ 
halten,  von  Lesern,  die  größtenteils  Schwierigkeiten  beim  Ein¬ 
tippen  der  DATAs  beziehungsweise  bei  der  Fehlersuche  hat¬ 
ten.  Deswegen  hier  Hinweise  zu  den  häufigsten  Problemen: 

1.  Wenn  nach  Beendigung  der  Tipparbeit  nach  dem  RUN  ei¬ 
ne  Fehlermeldung  »....  ERROR  in  40«  (oder  70)  erfolgt,  dann 
ist  sicherlich  nicht  die  Zeile  40  oder  70  daran  schuld,  sondern 
Sie  haben  aller  Wahrscheinlichkeit  nach  einen  Wert  (ein  »Da¬ 
tum«)  falsch  eingetippt.  Der  Computer  bringt  eine  Fehlermel¬ 
dung,  wenn  er  beim  POKE-Befehl  auf  eine  Kommazahl  trifft 
oder  einen  anderen  nicht  POKEbaren  Wert.  Dafür  gibt  es  — 
neben  schlichten  Tippfehlern  —  mehrere  Möglichkeiten:  Es 
kann  ein  Komma  fehlen  oder  durch  einen  Punkt  ersetzt  wor¬ 
den  sein.  Gerade  dies  ist  nämlich  auf  dem  Bildschirm  sehr 
schlecht  zu  erkennen. 

2.  Überprüfen  Sie  nach  dem  Programmabbruch  anhand  des 
Direktbefehls  »PRINT  I«  in  welchem  Block  (  +  1)  der  Fehler 
steckt.  Also  bei  der  Antwort  »1«  steckt  der  Fehler  in  Block  2. 

3.  Der  Direktbefehl  »PRINT  A«  zeigt  Ihnen  den  Wert,  der  den 
Fehler  verursacht  hat. 

Versuchen  Sie  es  erst  einmal  mit  dieser  kleinen  Hilfe.  Übri¬ 
gens  ist  unser  Listing  mit  99prozentiger  Wahrscheinlichkeit 
fehlerfrei,  von  uns  und  der  Redaktion  mehrfach  durchprobiert. 
Das  Dreckfuhlerteufelchen  hat  kaum  eine  Chance,  da  das  Li¬ 
sting  direkt  von  der  Diskette  auf  den  Drucker  läuft. 

Ich  hoffe,  daß  Sie  bis  jetzt  nicht  in  Ihren  Bemühungen  nach¬ 
gelassen  haben,  möglichst  häufig  die  verschiedensten  Befeh¬ 
le  zu  probieren.  Sie  wissen  doch:  Nur  die  Übung  macht  den 
Meister  —  und  das  gilt  speziell  für  die  Maschinensprache.  In 
der  nächsten  Ausgabe  bekommen  Sie  dann  die  letzten  Raffi¬ 
nessen  des  SMON,  der  dann  komplett  ist. 

(Norfried  Mann/gk) 

3^4*63 
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10  rem  ************************** 


20  rem  *  * 
30  rem  *  smon  * 
40  rem  *  van  n.mann  &  d. weineck  * 
50  rem  *  fleetrade  40  * 
60  rem  *  2800  bremen  * 
70  rem  *  tel .  0421  /  493090  * 
80  rem  *  0421  /  231401  * 
90  rem  *  * 


100  rem  ************************** 

1 10  -fari=0ta2:  reada:  pr  (i  )=a:  next 
120  sa=51261:i=0 
130  pa=sa+256*i : ch=0 

140  -f  or  j=Oto255:  reada:  pakepa+j  ,a:  ch=ch+a 
:  next 

150  remi  -f  ch<  >pr  ( i  )  then200 
160  i=i+l: if i<2thenl30 
170  pa=pa+256: ch=0 

180  -f  or  j=0tol21 :  reada:  pokepa+j  ,a:'ch=ch+a  I 
:  next 

190  i-f  ch=pr  (  i  )  thenend 

200  print"fehler  in  bl ock" i + 1 : end 

210  rem 

220  rem  ***  bl ockpruef summen  *** 

230  rem 

240  data34652 , 35523 , 16258 
250  rem 

260  rem  ***  block  1  *** 

270  rem 

280  data32, 141 ,194,141, 175,2,96,32,141 , 1 
94,141,176,2,96,76,209,194,160,2,132 
290  datal88, 136, 132, 185, 132, 187, 136, 132, 
183,32,202, 194,201,34,208,234,32,202 
300  datal94 , 145,187,200,230,183,201 ,34,2 
08,244, 198,183,173,176,2,133,186,165 
310  datal72,201 ,83,240,19,32,194,194,240 
,9,162,195,32,128,194, 169,0,133, 185 
320  datal69,0, 108,48,3, 162, 193,32, 128,19 
4,162,174,32,128,194,108,50,3,32,126 
330  data 194, 32, 202, 194,73,2,74,74,8,32, 1 
28,194,32,81,195,40,176,12,165,253 
340  datalOl ,251 , 170,165,254,101 ,252,56,1 
76,9, 165,251 ,229,253,170,165,252,229 
350  data254 , 16S , 138 , 132 , 252 , 133 , 251 , 132, 
98,133,99,8, 169,0, 133,211,32,117,198 
360  data 165, 252, 208, 15,32,73,195, 165,251 
,32,42,195,165,251 ,32,208, 195,240,3 
370  dat a32 , 35 , 195,32,76, 195,162, 144,165, 

1 , 141 , 177,2, 169,55, 133, 1 ,40,32,73, 1E8 
380  dat a32 , 22 1 , 189,174,177,2,134,1,76,86 
,195,32,141, 194,170,164,211, 177,209 
390  data73 ,32 , 240 , 163, 138, 168,32, 154,194 
,56,176,169,32, 184,194,160,8,72,32 
400  data202 , 194,201,49,104,42,136,208,24 
5,240,235,32,184,194,162,0,138, 134 
410  data251 , 133,252,168,32,207,255,201 
420  rem 

430  rem  ***  block  2  *** 

440  rem 

450  data58, 176, 132,233,47, 176,4,56,76,19 
6,200,133,253,6,251 ,38,252, 165,252 
460  data 133, 254, 165,251 , 10,38,254,10,38, 
254,24,101,251,8,24,101,253,170,165 


470  data254, iöi ,252,40,105,0,76,52,201 ,3 
2, 122,194,169,55,133,1,162,4,189,135 
480  data 192, 149, 170,202, 16,248,32,81 , 195 
, 166,170, 165,171,32,205,189,230,170 
490  data208,2,230, 171 ,169,68,32,210,255, 
169,193,32,210,255,160,0,177,251 , 132 
500  data9B, 133,99,32,209,139,32,99,196,1 
62,3, 176,10,169,44, 166,211,224,73,144 
510  data227, 162,9,134,198,189, 125, 192,15 
7,118,2,202,208,247,76,110,195,32, 122 
520  data 194, 32, 141 , 194,162,0,129,251,72, 

32.99.196.104.144.247.96.32.90. 194 

530  datal65 , 166,208,2,198,167,198,166,32 
,48,202, 134,181,160,2,144,4,162,2,160 
540  datä0,24, 165, 166, 101 ,174,133,170,165 
,167,101,175, 133, 171,161, 164,129,168 
550  data65, 168,5, 181 , 133,181 , 165,164,197 
, 166, 165,165,229,167,176,29,24, 181 
560  datal64, 121 ,107,192,149,164,181, 165, 
121 , 108,192,149,165,138,24, 105,4,170 
570  dataZOl ,7,144,232,233,8,170,176,207, 
165,181,240,15,76,209,194,56,162,254 
580  datal81 , 170,245, 166,149,176,232,208, 

247.96 
590  rem 

600  rem  ***  block  3  *** 

610  rem 

620  data32, 98, 202, 76, 21 4, 201 ,76,98,202, 1 

97,167,208,2,228,166,176,19,197,165 

630  d  at a208 , 2 , 228 ,164,144,11,133,180,138 

,24.101 , 174,170,165,180,101 , 175,96 

640  dat a32, 90, 194,32, 122, 194,32,48,202,3 

2,203, 196,200,169,16,36,171 ,240,38 

650  datal66 , 251 , 165,252,32,70,202, 134,17 

0,177,251, 133,181 ,32,74,197,160,1,32 

660  d  at a70 , 202 , 202 ,138,24, 229 ,170,145,25 

1.69.181.16.25.32.81.195.32.35. 195 

670  data36, 171, 16, 15, 177,251 , 170,200,177 

,251,32,70,202, 145,251 , 138, 136,145 

680  dat a25 1 ,32, 106,198,32,102,196,144,18 

1.96 

ready. 
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Mitmachen,  aber  wie? 


Die  64'er-Redaktion  freut 
sich  über  jeden  Beitrag  un¬ 
serer  Leser.  Die  Erfahrung 
hat  aber  gezeigt,  daß  viele 
Einsender  nicht  genau  wis¬ 
sen,  in  welcher  Form  sie  ih¬ 
re  Manuskripte  einsenden 
sollen.  Die  unten  aufgeführ¬ 
ten  Punkte  stellen  keine 
»Richtlinien«  dar.  Dennoch 
sollte  sich  jeder,  der  ein 
Programm  oder  einen  Arti¬ 
kel  einsenden  will,  an  ein 
gewisses  Schema  halten. 
Dies  erleichtert  zum  einen 
die  Arbeit  der  Redaktion, 
zum  anderen  könnt  es  auch 
Ihnen  selbst  zugute,  da  wir 
vollständige  Listings  oder 
Artikel  schneller  veröffentli¬ 
chen  können.  Folgende  Kri¬ 
terien  sind  also  generell  zu 
beachten. 

1.  Auf  der  ersten  Seite  des 
Anschreibens  sollten  der 
Name,  die  vollständige  An¬ 
schrift  mit  Telefonnummer 
sowie  das  Einsendedatum 
stehen. 

2.  In  der  »Betreffzeile«  tra¬ 
gen  Sie  die  genaue  Spezifi¬ 
kation  des  verwendeten 
Computers  und  falls  erfor¬ 
derlich,  die  Basic-,  ROM- 
oder  DOS-Versionen  sowie 
die  Speicherkonfiguratio 
nen  ein.  Der  Titel  des  Arti¬ 
kels  sollte  ebenfalls  daraus 
ersichtlich  sein  (auch  für 
eventuelle  Nachträge). 

3.  Im  darauffolgenden  Text 
können  Sie  Wesentliches  zu 
Ihrer  Person,  zur  Entste¬ 
hungsgeschichte  des  Pro¬ 
gramms/Artikels,  der  Ab¬ 
sicht,  der  Vorteile  gegen¬ 
über  anderen  Programmen 
oder  Methoden,  der  Eigen¬ 
schaften  und  so  weiter  er¬ 
läutern. 

4.  Auf  der  nächsten  Seite 
beginnt  die  eigentliche  Pro¬ 
grammbeschreibung.  Diese 
sollte  nach  Möglichkeit  mit 
der  Schreibmaschine  ge¬ 
schrieben  werden  oder  als 
Computerausdruck  vorlie- 
gen.  Den  Text  bitte  mit  min¬ 
destens  eineinhalb  oder 
doppeltem  Zeilenabstand 
verfassen.  Am  linken  und 
rechten  Rand  mindestens 
drei  Zentimeter  Freiraum 
für  Korrekturen  und  Bemer¬ 
kungen  lassen. 

5.  Diese  und  alle  nachfol¬ 
genden  Seiten  sollten 


durchnumeriert  sein  und  in 
der  Kopfzeile  jeweils  den  Ti¬ 
tel  des  Programms  und  den 
Namen  des  Autors  enthal¬ 
ten. 

6.  Der  Überschrift  des  Arti¬ 
kels  schließen  sich  zwei 
oder  drei  einleitende  Sätze 
an,  welche  die  wesentlichen 
Punkte  des  Textes  zusam¬ 
menfassen. 

Der  Text  selbst  sollte  in  et¬ 
wa  folgenden  Aufbau  auf¬ 
weisen: 

—  Angaben  auf  welchem 
Computer  das  Programm 
lauffähig  ist  sowie  welche 
Erweiterungen  und  Peri¬ 
pherie  notwendig  sind 

—  ausführliche  Beschrei¬ 
bung  der  Programmfunktion 
(mit  Verweisen  auf  Ein-/ 
Ausgabebeispielen  wie 
Grafiken,  Bildschirmfoto¬ 
grafien,  Hardcopys  oder 
Diagrammen) 

—  detaillierte  Programmbe¬ 
schreibung  (mit  Verweisen 
auf  Programmablaufplan, 
Variablendefinition,  Start¬ 
adressen  der  einzelnen  Un¬ 
terprogramme,  Bescinei- 
bung  wichtiger  Programm¬ 
zeilen  etc.) 

—  eventuelle  Umsetzung  auf 
andere  Basic-Dialekte  oder 
Computer 

7.  Die  genauen  Lade-  und 
Abspeicherschritte  des  Pro¬ 
gramms  und  der  im  Pro¬ 
gramm  vorkommenden 
Routinen  sollten  dokumen¬ 
tiert  sein. 

8.  Listings  aus  reprotechni¬ 
schen  Gründen  nur  als  Ori¬ 
ginal  (keine  Kopien)  auf  wei¬ 


ßem,  unliniertem  Papier  mit 
neuwertigem  Farbband  ge¬ 
druckt  emsenden.  In  den  Li¬ 
stings  dürfen  grundsätzlich 
keine  handschriftlichen  Ein¬ 
tragungen  stehen. 

9.  In  den  Kopfzeilen  des 
Programms  bitte  den  Titel 
desselben,  die  Computer¬ 
konfiguration,  den  eigenen 
Namen  und  die  Adresse  mit 
Telefonnummer  eintragen 
(es  soll  Vorkommen,  daß 
sich  Listings  und  Manuskrip¬ 
te  verselbständigen,  und  mit 
beiden  allein  läßt  sich  wenig 
anfangen). 

REM-Zeilen  im  Programm 
dienen  der  Übersichtlich¬ 
keit  und  sollten,  falls  nicht 
speicherkritische  Aspekte 
dagegensprechen,  immer 
zur  Strukturierung  einge¬ 
setzt  werden  (siehe  u.  a. 
»Sauberes  Programmieren«). 

10.  Um  das  Eintippen  für  an¬ 
dere  zu  erleichtern,  sollten 
Sie  CHR$(X)-Werte  und 
TAB(X)  oder  SPC(X)  anstatt 
Cursor-Manipulationen  für 
die  Ausgabeformatierung 
verwc  en.  So  ist  die  Be¬ 
fehlssequenz  FOR  I  =  1  TO 
6:PRINT:NEXT  zur  Erzeu¬ 
gung  von  sechs  Carriage 
Returns  leichter  einzutippen 
und  auf  andere  Basic-Com- 
puter  wesentlich  einfacher 
zu  übertragen.  Und  ist  es 
nicht  auch  übersichtlicher 
statt  einem  Dutzend  Cursor- 
Rechts-Symbolen  einfach 
SPC(12)  zu  benutzen?  Über¬ 
prüfen  Sie  Ihr  Programm 
einmal  hinsichtlich  dieser 
»Klemigkeiten«. 


1 1 .  Da  wir  (in  Ihrem  eigenen 
Interesse)  nur  getestete  Pro¬ 
gramme  veröffentlichen 
wollen,  legen  Sie  bitte  unbe¬ 
dingt  eine  Diskette  oder 
Kassette,  auf  der  das  betref¬ 
fende  Programm  mit  minde¬ 
stens  einer  Sicherheitskopie 
abgespeichert  ist,  bei.  Auf 
der  Diskette /Kassette  und 
deren  Umhüllung  unbedingt 
den  Namen  mit  vollständi¬ 
ger  Adresse  und  Computer¬ 
bezeichnung  vermerken. 

12.  Wollen  Sie  mehrere  Pro¬ 
gramme/Artikel  gleichzei¬ 
tig  einsenden,  so  trennen 
Sie  die  Programme/Artikel 
nach  dem  oben  aufgezeig¬ 
ten  Schema.  Die  Einsen¬ 
dung  mehrerer  Disket¬ 
ten/Kassetten  ist  hingegen 
nicht  notwendig. 

13.  Artikel  können  beliebig 
lang  sein  —  von  einzeiligen 
Routinen  bis  zu  Serien  über 
mehrere  Ausgaben.  Ein 
durchschnittlicher  Artikel 
hat  rund  vier  bis  acht 
Schreibmaschinenseiten . 

14.  Hardcopys,  Flußdia¬ 
gramme,  Zeichnungen  und 
Bildschirmfotos  dienen  der 
Anschaulichkeit.  Sie  sollten 
nach  Möglichkeit  nicht  feh¬ 
len.  Zu  jedem  der  vorge¬ 
nannten  »Zugaben«  gehört 
aber  eine  Bildunterschrift 
und  ein  Verweis  im  Text. 

15.  Programme/ Artikel  die 
unserem  Verlag  zur  Veröf¬ 
fentlichung  angeboten  wer¬ 
den,  sollten  aus  urheber¬ 
rechtlichen  Gründen  nicht 
gleichzeitig  einem  anderem 
Verlag  vorliegen. 

16.  Das  64'er  Magazin  zahlt 
für  Listings  eine  Pauschale 
zwischen  100  und  300  Mark. 
Für  reine  Artikel  beträgt 
das  Honorar  zwischen  0,80 
und  1 ,00  Mark  pro  Druckzei¬ 
le.  Für  Disketten/Kassetten 
werden  30  Mark  extra  be¬ 
rechnet. 

17.  Sollten  sich  nach  Erhalt 
eines  positiven  Anwort¬ 
schreibens  noch  irgendwel¬ 
che  Änderungen  oder  Ver¬ 
besserungen  des  Pro¬ 
gramms  ergeben  haben,  tei¬ 
len  Sie  uns  das  bitte  umge- 
hend  mit.  In  diesem  Falle 
benötigen  wir  ein  vollstän¬ 
dig  neues  Listing  mit  ent¬ 
sprechendem  Datenträger. 

(aa) 


Wie 

schicke 
ich  meine 
Programme 
ein? 
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GRAFIK 


Bewegte  Gra¬ 
fik  und  Text 
mischen 

Wer  an  Sprites  denkt,  stellt  sich  meist 
kleine  Männchen  oder  Raumschiffe 
vor.  Aber  auch  beim  Einsatz  in  Anwen¬ 
dungsprogrammen  können  Sprites 
zur  grafischen  Illustration  sehr  nütz¬ 
lich  sein. 

Als  ich  die  Grafik  entwarf,  wollte  ich  ein  Programm  unter  fol¬ 
genden  Gesichtspunkten  schreiben:  kein  Spielkram  und  von 
Basic  aus  verwendbar.  Damit  diese  Erweiterung  auch  mit  an¬ 
deren  Basic-Erweiterungen  ohne  weiteres  funktioniert,  sollten 
die  Befehle  über  »SYS«  aufgerufen  werden.  Nun  sollte  es  kein 
Allerweltsprogramm  sein,  sondern  irgend  etwas  Neues.  Da  fie¬ 
len  mir  die  Sprites  ein.  Mit  dem  richtigen  Programm  könnten 
damit  kleine  aber  deutliche  Grafiken  erstellt  werden,  zum  Bei¬ 
spiel  Niederschlags-Temperatur-  oder  Umsatztabellen.  Als  ide¬ 
al  fand  ich  vier  Sprites  hintereinander  und  das  zweimal  unter¬ 
einander.  Das  gibt  eine  Auflösung  von  immerhin  95  x  42  = 
4  032  Punkten.  Damit  läßt  sich  schon  einiges  machen.  Zur 
Handhabung  werden  vier  Routinen  benötigt.  Eine  zum  Ein¬ 
schalten  der  Grafik,  eine  zum  Setzen  beziehungsweise  Lö¬ 
schen  der  Punkte  und  eine  zum  schnellen  Löschen  der  ge¬ 
samten  Grafik.  Weiterhin  noch  eine,  die  die  ganze  Grafik  auf  ei¬ 
ne  Farbe  setzt. 

Das  Einschalten  und  Positionieren  der  Grafik 

Dazu  sind  vier  Parameter  nötig,  zwei  für  die  x,y-Koordinaten 
und  zwei  für  die  x,y-Ausdehnung,  also  das  Spreizen  der  Spri¬ 
tes.  Je  nachdem,  ob  gespreizt  oder  nicht,  werden  die  Koordi¬ 
naten  berechnet  und  in  die  jeweiligen  Register  abgelegt.  Zum 
Schluß  werden  noch  alle  Sprites  aktiviert.  Der  Einfachheit  hal¬ 
ber  kann  x  nur  Werte  zwischen  0  und  255  haben.  Bei  x=255 
und  ungespreizt  ragt  die  Grafik  sowieso  schon  aus  dem  Bild¬ 
schirm  heraus.  Auch  sollte  man  mit  dem  y-Wert  nicht  zu  hoch 
gehen,  da  sonst  die  Grafik  möglicherweise  oben  in  den  Bild¬ 
schirm  hereinkommt.  Diese  Einschränkungen  sind  aber  in  den 
meisten  Fällen  unwesentlich. 

Das  Setzen  beziehungsweise  Löschen  von  einem  Punkt 

Dazu  muß  genau  das  Byte  errechnet  werden,  in  dem  sich  der 
Punkt  befindet.  Dafür  braucht  man  nur  die  obere  Spritereihe  zu 
betrachten.  Sie  ist  genau  eine  Speicherseite  (256  Byte)  groß. 
Sollte  nun  die  y-Koordinate  größer  als  20  sein,  so  wird  einfach 
eine  Seite  weitergeblättert,  das  heißt  das  Hi-Byte  des  Zeigers 
inkrementieren.  Als  erstes  wird  das  Sprite  errechnet.  Es  wird 
solange  #  24  ( =  eine  Spritelänge)  vom  x-Wert  abgezogen  bis 
der  x-Wert  kleiner  als  24  (24  <  x  <  =  0)  ist.  So  ist  man  praktisch 
im  ersten  Spriteblock  gelandet.  Nun  wird  vom  x-Wert  solange 
#8  abgezogen,  bis  der  x-Wert  kleiner  als  8  (8<x>  =0)  ist. 
Jetzt  weiß  man,  welches  Bit  gesetzt  werden  soll,  und  welches 
Byte  in  der  Reihe  gemeint  ist  (eins  von  dreien). 

Nun  der  y-Wert.  Ist  er  größer  als  20,  dann  muß  das  Hi-Byte 
des  Zeigers  inkrementiert  und  vom  y-Wert  21  abgezogen  wer¬ 
den.  Man  will  ja  die  Byteposition  in  einem  Spriteblock  errech¬ 
nen.  Ist  der  y-Wert  jetzt  noch  größer  als  0  so  müssen  noch  ein¬ 
mal  3  *  y  dazugezählt  werden,  denn  ein  Sprite  hat  die  Ausdeh¬ 
nung  von  3  Byte.  Damit  hat  man  das  Byte,  das  in  einem  Sprite¬ 
block  verändert  werden  soll.  Nun  wird  das  Low-Byte  des  jewei- 
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ligen  Sprites  dazuaddiert  und  in  der  Zeropage  für  den  Zeiger 
abgelegt.  Nachdem  das  Bytemuster  hergestellt  ist,  kann  nun 
der  Punkt  gelöscht  beziehungsweise  gesetzt  werden. 

Das  Löschen  der  Grafik  und  Setzen  der  Farbe  versteht  sich 
wohl  von  selbst.  Das  Ausschalten  der  Grafik  geschieht  durch 
POKE  53269,0. 

Die  Befehlsliste  sieht  dann  so  aus: 

SYS  PLOT  ,  0  ,  x-Wert  ,  y-Wert  Punkt  löschen 
SYS  PLOT  ,  1  ,  x-Wert ,  y-Wert  Punkt  setzen 
SYS  SET  ,  x-Pos.  ,  y-Pos.  , 

x-spreizen  ,  y-spreizen  Grafik  ein 
SYS  COLOR  ,  Farbcode  Farbe  setzen 

SYS  CLS  Grafik  löschen 


10  REM*****-******-***-******************** 
20  REM*  S-GRAFIK  * 

30  REM*  FREDERIC  ESP I TAL I ER  * 

40  REM********************************** 
50  FDRA=49152T049568: READX:  PC3KEA,  X 
60  C=C+X; NEXTA 

70  IF  C052597THENPRI NT " FEHLER  IN  DATAS" 
:  STOP 

SO  SYS49547 

100  DATA32, 253, 174,32, 153,183,224,96,48, 

6,162,14,32,55,164,96,142, 159,193,32 

110  DAT A253, 174,32, 158, 183,224,42, 16,237 

,142,160,193,162,0,173,159,193,201 

120  DATA24, 48, 6, 56, 233, 24, 232, 208, 246, 14 

1,159, 193,169,8,133, 188,189,155,193 

130  DATA 133, 187, 173, 160,193,201,21,48,11 

,230,188,173,160,193,56,233,21 ,141 

140  DATA 160, 193,173,159,193,162,0,201,7, 

4P  8 , 240 , 6 , 56 , 233 , 8 , 232 , 208 , 244 ,41,7 

f5Ü  DATA73,7, 168, 169,1 , 136,48,3, 10,208,2 

50.141 . 161 . 193.173.160.193.240.8.10 

160  DATA24, 109, 160,193, 141 ,160, 193, 138,2 

4, 109, 160, 193,24,101 , 187,133,187,96 

170  DATA32,0, 192, 173, 161 , 193,160,0, 17, 18 

7,145, 187,96,32,253,174,32,158, 183 

180  DATA224,2,48,3,76, 10,192,224, 1 ,240,2 

26,32,0,192,173,161 , 193,73,255,160,0 

190  DATA49, 187, 145, 187,96, 169,0, 162,0, 15 

7,0,8, 157,0,9,232,208,247,96,32,253 

200  DATA 1 74 , 32 , 158,183,138,162,8, 157,38, 

208,202,208,250,96,160,39,162,8,152 

210  DATA 157, 247, 7, 136,202,208,248,32,253 

,174,32,158,183, 142,159,193,32,253 

220  DAT Al 74, 32, 158,183, 142,160, 193,32,25 

3. 174.32.158.183.224.2.48.3.76. 10 

230  DATA192, 189, 149, 193, 141 ,29,208,169,3 
4,141,162,193,189,151,193,141,161 
240  DATA193, 162,0, 142, 16,208,173,159,193 
, 157,0,208, 157,8,208,224,6,240,28,24 
250  DATA109, 161 , 193,205,159,193,176,11,7 
2, 173, 16,208,13, 162,193, 141 , 16,208 
260  DAT Al 04, 232, 232, 14,162, 193,76,21 , 193 
,32,253, 174,32,158, 183,224,2,48,3,76 
270  DATA10 , 192,189,149,193, 141 ,23,208,17 
3, 160, 193, 141 , 1,208,141,3,208,141,5 
280  DATA208, 141 ,7,208,24, 125, 153, 193,141 
,9,208,141 ,11,208, 141 , 13,208, 141 , 15 
290  DATA208 , 169,255,141,21,208,96, 169,0, 
162,0, 189,0,8,73,255, 157, 0,8, 189,0,9 
300  DATA73 , 255 , 157,0,9,232,208,237,96,16 
9,10, 133,44,141 , 130,2,76,148,227,0 
310  DAT A255 , 24 , 48 ,21 ,42,0,64, 128, 192,234 
,0 

READY. 

Bild  1.  Der  Basic-Lader  für  die  S-Grafik 
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Grafik  negativ 


SYS  INV 
SYS  INIT 

Die  Routine  INIT  bereitet  das  RAM  auf  S-Grafik  vor.  Sie 
schiebt  den  Speicher-  und  Programmstart  auf  $0A00,  davor 
liegt  jetzt  der  Speicher  für  die  Sprites.  Danach  wird  ein  Kalt¬ 
start  durchgeführt,  das  heißt  der  Basicspeicher  gelöscht. 
Technische  Daten: 

Sprites  von  $0800  bis  $09FF 

S-Grafik  ab  $C000  bis  CIAO 

Basic-RAM  ab  $0A00 
Anwendung  der  S-Grafik: 

Mit  ein  wenig  Routine  läßt  sich  mit  der  S-Grafik  viel  realisie¬ 
ren.  Setzt  man  zum  Beispiel  die  Farbe  der  oberen  Spritereihe 
auf  Rot  und  die  der  unteren  Reihe  auf  Grün,  so  hat  man  einen 
roten  und  einen  grünen  Bereich.  Nun  kann  man  bei  Säulengra¬ 
fiken  sofort  erkennen,  wo  es  kritisch  wird  (zum  Beispiel  Alko¬ 
holkonsum).  Die  Möglichkeiten  sind  fast  unbegrenzt.  Dazu 
kommt,  daß  man  ja  die  Grafik  überall  hinschieben  kann  und 
auch  noch  spreizen  kann.  Sie  kann  im  Textmodus  beschriftet 
werden,  im  »Dunklen«  aufbereitet  werden,  ruckzuck  invertiert 
werden  und  so  weiter. 

Man  lädt  die  S-Grafik  mit  LOAD”S-GRAFIK", 8,1  (Bild  1).  Nun 
kann  S-Grafik  ohne  Bedenken  eingesetzt  werden. 

Achtung!  Wenn  sich  ein  Basicprogramm  im  Speicher  befin¬ 
det,  wird  es  durch  Aufruf  der  Routine  INIT  gelöscht. 

Der  Grundgedanke  zum  Setzen  eines  Punktes. 

Zum  Beispiel  (34/23) 

A:  34  :  24  =  1  Rest  10 

Der  Punkt  befindet  sich  in  Sprite  1  und  ist  das  10  Bit 
B:  10  :  8  =  1  Rest  2 

Der  Punkt  befindet  sich  im  1.  Byte,  als  2.  Bit 

Y(  =  23)  ist  größer  als  20,  also  wird  Grundadresse  2  gewählt 
(Grundadresse  1  =  $0800,  Grundadresse  2  =  $0900 
C:  23-21  =  2 

Das  Byte  befindet  sich  in  der  unteren  Spritereihe  in  Reihe  2, 
das  heißt  2  *  3  Byte  müssen  zur  Adresse  zugezählt  werden. 

Daraus  ergibt  sich: 

64  Grundadresse  von  Sprite  0,  Rechnung  A 
+  1  Byte  aus  Rechnung  B 

+  2*3  Byte  aus  Rechnung  C 

4-  $0900  Grundadresse  der  2.  Spritereihe 

=  Adresse  des  Bytes,  in  der  sich  der  Punkt  befindet. 

Dazu  ist  noch  zu  bemerken,  daß  eine  Spritereihe  mit  Sprite 
0  beginnt.  Wem  das  jetzt  noch  zu  theoretisch  ist,  schaut  sich 
einfach  das  Listing  des  Demo-Programms  (Bild  2)  an. 

(F.  Espitalier/rg) 


I  poke53280 ,14:  pake53281 ,6:  pri  nt  "isal" 
10  plot =49299 

II  cl 5=49331 
12  f ar be=49345 


13  set=49361 

14  inv  =49523 
20  sys  cls 

100  printchr*  ( 14)  "islSB— GRAF IKH" 
110  pri  nt  "SU  ( C )  by  FCS  1984" 


130  print 
032  Punkte" 

131  pri  nt  "Sil 
x  und  y" 

132  pri  nt  "Sill 

133  pri  nt " 211 
ne  zur  Zeit" 

134  pri nt "a 
rtieren" 


Auf loesung 
Zoom 

Position 

Farben 

Extras 


96*42  =  4 


:  je  2x  nach 

:  variabel" 

:  variabel , ei 

:  Grafik  inve 


136  f  orn=l to9999:  getaf-:  if  a$="  "thennext 

140  sys  set ,  100, 100, 1 , 1 :  print"*!"  :  sys  far 
be ,  14 

141  print" Ideal  fuer  Funktionsdarstel lun 
gen :  " 

150  f orn=-20to20step 1 

1 60  y =0 . 1 *n  T  2 : y=4 1 -y 

170  sys  plot , 1 ,n+45,y:next 

171  f  ar n=-20ta20step 1 

172  y=Q. l*n T2: y=41-y 

173  sys  plot, 1 ,n+48,y:neKt 

174  f arn=-20to20stepl 

175  y=0. l*nT2:y=41— y 

176  sys  plot , 1 ,n+51 ,y:next 

177  f arn=-20ta20step 1 

178  y=0. l*nT2:y=41— y 

179  sys  plot , 1 ,n+54,y:next 

190  sys  inv: f arn=lto9999: geta4: if a$=" "th 
ennex  t 

200  sys  cl s : sys  färbe, 13 

201  print "i^Ideal  fuer  Mini-Grafiken" 

210  pr i nt "SilrlSchnel  1  erstellt,  im  Text  Mo 
dus" 

211  print "SflKann  ueberal  1  im  Bildschirm  s 
tehen " 

212  f orx=0to95stepS: ready : gosub  1000: nex 
t 

213  print"  EEEEEEEEEEEE1"  :  f  or  n=  1  to9999 :  get 
a$: if a$=" "thennext 

214  print"mal  so,"; 

215  sys  set , 100, 100,0, 1 

216  f orn=l to9999: geta$ : i fa$=" "thennext 

217  print"mal  so";:sys  set , 100 , 100 , 1 , 0 
2  f orn=lto9999: getaf: i fa$=" "thennext 

219  print“  oder  so.":sys  set , 100, 100,0,0 

220  f orn=l t o9999: get aS: i f a$=" "thennext 
230  f orn=0to255: sys  set ,n , 100,0,0: f orf =1 
ton-200: nextf ,n 

240  sys  set, 100, 100, 1,1 

250  f orn=0tol5: sys  f arbe , n : f orf =0to400: n 
extf  ,  n 

300  c =5324 8 :  pr  i  nt "  i=il" 

310  sys  cls 

320  sys  set, 100, 100, 1,1 

330  sys  f arbe ,5: f orn=43to46: pokec+n ,2: ne 
xt 

340  poke53280, 1 :  poke53281 , 1 :  print "  5SI" 

350  f orn=20to21 : f orm=0to95: sys  plot,l,m, 
n : nextm , n 

360  f orx=0to4*13stepl3: read  y:gosub500:n 
ext 

370  print"S3z.B.  Gewinne  Verluste  bei  ein 
er  Wahl" 

380  print"  tTI^IEMBSTEliiil^ew i  n n e 

+  " 

381  print  "SflEiTETVerluste 

382  print  "SEI  A  B  C  D  E" 

499  end 

500  s=l : ss= (y*~  1 ) +20: if ss<20thens=— 1 

501  f or  n=x tox  +  10: f orm=20tosssteps: sys  p 
lot , 1 , n , m: nextm, n : return 

1000  f orn=xtox+6: f orm=41— yto41 : sys  plot, 
1 ,n , m: nextm,n: return 

2000  data2, 10, 8, 17,22,41,33,29,18,1 ,3,7 
3000  data  +16,-9 , +7, +12, -17 

ready . 
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Von  allen  Sei¬ 
ten  betrachtet 

Um  dreidimensionale  Körper  von  allen 
Seiten  betrachten  zu  können,  benöti¬ 
gen  Sie  den  C  64,  Simons  Basic,  einen 
Drucker  und  dieses  Programm. 

Das  Programm  soll  einmal  dreidimensionale  Körper  auf  dem 
Bildschirm  darstellen  und  zum  anderen  die  hervorragende  Gra¬ 
fikfähigkeit  des  C  64  demonstrieren. 

Bei  der  Darstellungsart  entschied  ich  mich  für  die  normale 
Axonometrie.  Sie  ist  einerseits  leicht  in  eine  für  den  C  64  ver¬ 
ständliche  Syntax  zu  packen  und  weist  zum  anderen  einen 
räumlichen  Effekt  auf. 

So  entstand  dann  bald  die  erste  Version  von  »Simons-Axo«. 
Allerdings  war  ich  mit  dieser  Version  noch  nicht  zufrieden.  So 
tüftelte  ich  noch  einige  Routinen  aus,  die  dem  Programm  erst 
den  richtigen  Schliff  geben. 

Nun  fügten  sich  an  die  einfache  Zeichenroutine  noch  weite¬ 
re,  die  das  Abspeichern  der  Körperdaten  als  sequentielle  Datei 
auf  Diskette,  das  Drehen  des  Körpers  um  die  drei  Koordinaten¬ 
achsen  (in  beliebiger  Variation),  das  Verschieben  des  Körpers, 
das  Einzeichnen  der  Koordinatenachsen  mit  ihren  Bezeich¬ 
nungen  und  das  Ausdrucken  des  Hires-Bildschirmes  auf  einen 
angeschlossenen  Drucker  ermöglichen. 

Das  Programm  beginnt  in  der  Zeile  1 0,  wo  der  Bildschirm  ge¬ 
löscht  und  ebenso  wie  der  Rahmen  auf  schwarz  gesetzt  wird. 
In  den  folgenden  Zeilen  gibt  das  Programm  eine  kurze  Anlei¬ 
tung  und  wartet  mit  der  Fortführung  in  Zeile  95,  bis  Sie  eine  be¬ 
liebige  Taste  gedrückt  haben. 

In  der  Zeile  100  werden  die  Felder  PI  (Eckpunktkoordina¬ 
ten,  mit  denen  laufend  gearbeitet  wird)  und  PA  (Eckpunktkoor¬ 
dinaten  des  Ausgangszustandes)  mit  100,3  dimensioniert. 
Das  bedeutet,  daß  Sie  Körper  mit  bis  zu  100  Eckpunkten  ein¬ 
geben  können.  Das  Array  ZP,  ebenfalls  mit  100  dimensioniert, 
gibt  die  Verbindungsvorschrift  (Reihenfolge,  in  der  die  Punkte 
miteinander  verbunden  werden)  an. 

In  Zeile  105—120  erfolgt  eine  Abfrage,  ob  die  Körperdaten 
von  der  Diskette  eingelesen  werden  sollen  (Einleseroutine  ab 
1000)  oder,  ob  Sie  diese  »von  Pland«  eingeben  wollen.  Sie 
können  hier  mit  J’  oder  ’N’  antworten,  jede  andere  Antwort  wird 
ignoriert. 

Ab  Zeile  125  steht  die  eigentliche  Eingaberoutine,  in  der  Sie 
mittels  INPUT  um  die  einzelnen  Eckpunktkoordinaten  gebeten 
werden.  Diese  werden  den  Feldern  PT  und  PA  zugeordnet.  In 


dieser  Eingabeschleife  fungierten  PX,  PY  und  PZ  als  Zwi¬ 
schenvariablen  und  A  als  Zähler.  Die  Eingabe  können  Sie  je¬ 
weils  mit  »Ende«  abschließen.  Hierbei  empfiehlt  es  sich,  den 
oben  genannten  Term  einzufügen,  da  das  Programm  ja  drei  Va¬ 
riablen  verlangt  und  sonst  nur  noch  nachfragt,  bis  es  alle  drei 
hat.  Mit  »£«  können  Sie  die  vorige  Eckpunkteingabe  nochein- 
mal  korrigieren  (deswegen  habe  ich  PX$  anstelle  von  PX  ver¬ 
wendet). 

Von  200  bis  270  wird  die  Verbindungsvorschrift  eingele¬ 
sen.  Hier  geben  Sie  zuerst  den  Startpunkt  ein  und  dann  jeweils 
einen  weiteren  Eckpunkt.  Die  Nummern  dieser  Eckpunkte 
werden  nacheinander  in  ZP(B)  abgelegt.  In  der  Zeichenrouti¬ 
ne  werden  die  Eckpunkte  dann  in  dieser  Reihenfolge  durch  Li¬ 
nien  verbunden,  wodurch  der  Körper  gezeichnet  wird.  Auch 
hier  können  Sie  mit  der  »£«-Taste  Korrekturen  ausführen.  In 
dieser  Schleife  dient  B  als  Zähler  und  A$  als  Zwischenspei¬ 
cher.  AI  enthält  die  Nummer  des  zuvor  eingegebenen  Eck¬ 
punktes  (für  die  Korrektur  notwendig). 

In  300  bis  360  können  Sie  das  Koordinaten  kreuz  festlegen, 
indem  Sie  die  Winkel  zwischen  der  z-  und  y-Achse  (AL)  und 
z-  und  x-Achse  (BT)  eingeben.  Das  Programm  ist  für  jeweils 
120°  voreingestellt,  Sie  können  diese  Vorschläge  aber  ein¬ 
fach  überschreiben. 

ACHTUNG:  Sie  wählen  hier  die  Winkel  zwischen  den  proje¬ 
zierten  Koordinatenachsen.  Die  Winkel  zwischen  den  realen 
Achsen  im  Raum  sind  natürlich  immer  je  90° ! 

Durch  geeignete  Wahl  dieser  Winkel  können  Sie  den  Sicht¬ 
winkel,  unter  dem  Sie  den  dargestellten  Körper  betrachten, 
ändern.  Sind  beide  Winkel  90°,  so  blicken  Sie  frontal  von  vor¬ 
ne  auf  den  Körper,  sind  beide  kleiner  als  90°,  so  sehen  Sie 
von  unten  her  auf  Körper  und  bei  Winkeln  über  90 0  von  oben 
her. 

Die  nächsten  Zeilen,  von  400  bis  490  stellen  die  Zeichen- 
routint;  dar.  Hier  wird  zunächst  in  Zeile  405  in  den  Hires- 
Modus  umgeschaltet  und  die  Zeichenfarbe  grün  bei  schwar¬ 
zem  Hintergrund  gewählt.  In  41 0  bis  420  werden  die  Zeichen¬ 
koordinaten  (zweidimensional)  des  Anfangspunktes,  welcher 
durch  ZP  0  gegeben  ist,  errechnet  und  in  XA  und  YA  abgelegt. 
In  der  nachfolgenden  Schleife  werden  nach  dem  gleichen 
Schema  die  Endpunktkoordinaten  für  den  LINE-Befehl  des  Si¬ 
mons  Basic  berechnet  und  die  Linie  gezeichnet.  In  Zeile  450 
wird  der  Endpunkt  nun  zum  Anfangspunkt  für  die  nächste  Linie 
definiert.  Die  Variable  B  dient  hier  als  Zähler,  während  A  als  In¬ 
dex  verwendet  wird.  Wenn  alle  Punkte  miteinander  verbunden 
sind,  so  wie  es  die  Verbindungsvorschrift  ZP(B)  angibt,  wird 
die  Schleife  beendet  und  das  Programm  prüft,  ob  das  Flag  für 
das  Einzeichnen  der  Koordinatenachsen,  KO  auf  1  (zeichnen) 
gesetzt  ist.  Ist  dies  der  Fall,  so  wird  nach  1410  verzweigt. 

In  480  und  485  wird  in  der  linken  oberen  Ecke  die  Fertig- 
Meldung  ausgegeben  und  in  die  Endlosschleife  in  490  ge¬ 
sprungen,  die  nach  Drücken  der  Fl-Taste  beziehungsweise 
RETURN  verlassen  wird. 
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Nun  sind  wir  im  Hauptmenü,  welches  uns  zehn  Möglichkei¬ 
ten  bietet.  Die  Abfrage  erfogt  in  585  mittels  GET.  In  590  steht 
die  Sprungtabelle  auf  die  einzelnen  Routinen.  Wenn  Sie  0  ein¬ 
gegeben  haben,  wird  das  Programm  nun  in  595  abgebrochen. 
Mit  GOTO  XXXX  oder  CONT  können  Sie  wieder  einsteigen, 
ohne  daß  Sie  die  Daten  verlieren. 

In  den  Zeilen  600  bis  790  steht  nun  die  Routine,  die  erlaubt, 
die  erstellte  Figur  in  beliebiger  Variation  um  die  Koordinaten¬ 
achsen  zu  drehen.  Doch  zuerst  gelangen  Sie  wieder  in  ein  Me¬ 
nü,  in  dem  Sie  die  momentane  Drehung  auswählen  müssen. 
Der  Drehwinkel  ist  in  Grad  einzugeben.  Ist  dieser  positiv,  wird 
die  Figur  gegen  den  Uhrzeigersinn  um  die  gewählte  Achse  ge¬ 
dreht.  Bei  einem  negativen  Winkel  erfolgt  die  Drehung  im  Uhr¬ 
zeigersinn.  Die  Drehroutine  ist  in  drei  Abschitte  unterteilt,  je 
nach  Drehachse,  wobei  alle  drei  mit  den  Poiarkoordinaten  ar¬ 
beiten.  Diese  werden  in  den  Zeilen  660  bis  670,  710  bis  720 
sowie  760  und  766  berechnet.  EO  ist  der  Winkel  und  R  der 
Radius.  Zu  EO  wird  nun  einfach  der  Drehwinkel  addiert  und  die 
neuen  kartesischen  Koordinaten  berechnet.  In  diesen  Schlei¬ 
fen  dient  X  als  Zähler,  während  EP  die  Anzahl  der  Eckpunkte 
angibt.  In  Zeile  790  wird  wieder  auf  die  Grafik  zurückgeschal¬ 
tet  und  in  die  Zeichenroutine  nach  400  gesprungen.  Nun  kann 
man  am  Bildschirm  wieder  das  Entstehen  des  Körpers  in  ge¬ 
drehter  Lage  beobachten. 

Die  kurze  Ausgangszustand-Rouline  in  800  bis  850  kopiert 
einfach  die  Anfangsdaten  der  Eckpunkte,  die  ja  im  PA-Feld 
festgehalten  sind,  in  das  Arbeitsfeld  PT.  Hier  dienen  X  und  Y 
wieder  als  Zähler.  Danach  wird  die  Zeichenroutine  aufgerufen. 

In  den  Zeilen  1 000  bis  1 097  steht  die  Einleseroutine,  die  die 
Körperdaten  (Eckpunkte  und  Verbindungsvorschrift)  von  der 
Diskette,  wo  sie  als  sequentielle  Datei  stehen  müssen,  einliest 
und  sie  den  entsprechenden  Feldern  zuordnet.  Dem  abge¬ 
fragten  Dateinamen,  der  auch  den  Joker  enthalten  kann,  wird 
gleich  »,S,R«  angehängt  und  dann  die  Datei  geöffnet,  nachdem 
der  Fehlerkanal  geöffnet  wurde  (1010).  Nun  werden  EP  (An¬ 
zahl  der  Eckpunkte)  und  SP  (letzte  Nummer  der  Verbindungs¬ 
vorschrift),  die  beiden  wichtigen  Steuervariablen,  eingelesen. 
Danach  werden  zunächst  die  Felder  PT  und  PA  gefüllt  und 
schließlich  noch  die  Verbindungsvorschrift  eingelesen  und 
dem  ZP-Feld  zugeordnet.  Zwischendurch  wird  in  die  Fehlerka¬ 
nalroutine  verzweigt,  die  sich  in  den  Zeilen  1250  bis  1290  be¬ 
findet  und  das  Programm  stoppt,  wenn  es  zu  einem  Disketten¬ 
fehler  kommt.  Dann  wird  die  komplette  Fehlermeldung,  die  in 
den  Variablen  Fl,  FIS,  F2  und  F3  festgehalten  ist,  ausgege¬ 
ben.  Nun  hat  man  die  Möglichkeit  (meistens,  wenn  man  den 
Dateinamen  falsch  eingegeben  hat)  in  die  Zeile,  in  der  der  Feh¬ 
ler  entstanden  ist,  zurückzukehren,  indem  man  mit  RETURN 
bestätigt,  oder  das  Programm  abzubrechen,  indem  man  die 
SPACE-Taste  betätigt. 

Ab  Zeile  1100  finden  Sie  die  Schreibroutine.  Diese  funktio¬ 
niert  im  wesentlichen  genauso  wie  die  Einleseroutine  mit  dem 
Unterschied,  daß  die  momentanen  Körperdaten  auf  Diskette 
gespeichert  werden. 

Ab  Zeile  1300  bis  1360  befindet  sich  die  Verschieberouti¬ 
ne,  die  das  Verschieben  der  erstellten  Figur  um  einen  Vektor, 
der  in  Zeile  1320  abgefragt  wird  (wieder  mit  drei  Koordinaten) 
ermöglicht.  Mit  dieser  und  der  Drehroutine  ist  es  möglich,  ei¬ 
nen  Körper  zuerst  in  einer  einfachen  Lage  zu  erstellen  und 
dann  in  eine  komplizierte  Lage  zu  drehen  und  zu  schieben. 
Nach  der  Neuberechnung  des  PT-Felder  wird  wieder  zur  Zei¬ 
chenroutine  verzweigt. 

Das  Zeichnen  der  Koordinatenachsen,  ab  Zeile  1400  stellt 
die  vorletzte  Routine  dar.  In  Zeile  1405  wird  zunächst  gete¬ 
stet,  ob  das  Flag  KO  schon  auf  1  gesetzt  ist.  Ist  dies  der  Fall, 
so  werden  die  bereits  gezeichneten  Achsen  gelöscht,  indem 
der  Zeichentypusvariable  TY  der  Wert  Null  zugeordnet  wird. 
War  KO  jedoch  Null,  so  werden  beide  auf  1  gesetzt,  als  Zei¬ 
chen  dafür,  daß  die  Achsen  gezeichnet  werden  sollen.  In  den 


C  64  +  SB 


nächsten  Zeilen  werden  den  Variablen  XS  und  YS  die  End¬ 
punkte  der  Koordinatenachsen  übergeben,  während  XI  und 
Y1  die  Koordinaten  zur  Ausgabe  der  Bezeichnungen  mit  dem 
CHAR-Befehl  darstellen.  Es  werden  nun  die  Achsen  nachein¬ 
ander  berechnet  und  dann  gezeichnet  und  bezeichnet.  An¬ 
schließend  wird  wieder  auf  den  Grafikbildschirm  umgeschaltet 
und  nach  480  verzweigt,  wo  die  Fertig-Meldung  wieder  aus¬ 
gegeben  wird. 

In  den  Zeilen  1 500  bis  1 535  steht  die  letzte  und  gleichzeitig 
die  einfachste  Routine,  das  Ausgeben  des  Bildschirminhaltes 
auf  einen  angeschlossenen  Drucker  mit  dem  COPY-Befehl. 

Vor  der  Hardcopy  wird  jedoch  D$  mit  »HARDCOPY«  Mel¬ 
dung  ausgegeben.  Wer  diese  Meldung  als  störend  empfindet, 
da  sie  auch  auf  dem  Drucker  ausgegeben  wird,  kann  sie  auch 
weglassen,  indem  er  einfach  die  Zeilen  1515  und  1510  weg¬ 
läßt.  Ist  die  Hardcopy  fertig,  wird  wieder  nach  480  verzweigt 
und  die  Fertig-Meldung  ausgegeben.  (Peter  Steger/rg) 


1  rem  **-****•**************■*-*■** 


2 

rem 

* 

normale  axonometri e 

* 

rem 

* 

4 

rem 

-* 

*- 

5 

rem 

* 

steger  peter 

* 

6 

rem 

* 

bahnhof strasse  20b 

* 

7 

rem 

* 

6632  ehrwal d/tr i ol 

* 

8 

rem 

* 

tel  :  a— 05673/2656 

* 

9  rem  *****-**-#•**-*-*-*****■*****-*-*• 

10  :  print "3"  :  poke  53230,0  :  pake  5328 

1,0 

20  printtab(lO) "flhormale  axonometrie  : " 

:  print  tab  (10)  "EEEEEEEEEEEEEEEEEEEEEüiJ" 
25  pr  int  "2fEÜ3S90BBdieses  programm  stellt  e 
b:  rl aschig" 

30  print"Äbegrenzte  koerper,nach  eingabe 
bzw  einle" 

35  print "Wsen  der  ackpunkts  and  der  verb 
indungsvar" 

40  print "Wschri -ft  in  normaler  axonometri 
e  dar. " 

45  print "EüsiPISilii erbet  kann  das  achsenkreu 
z  beliebig" 

50  print  "Mgewaehlt  werden." 

55  print "all  er d i ngs  bleibt  der  Ursprung 
in  der" 

60  print"bildschirmmitte. " 

65  pri nt "cStSifSihach  dem  zeichnen  der  -Figur 
erscheint" 

70  pri  nt  "Min  der  linken  oberen  ecke  <-fer 
tig>  und“ 

75  pri nt "man  kommt  dann  mit  ÄK* 1 >  oder  < 
return>  Sflin" 

76  print "Mdas  hauptmenue. " 

BO  pri  nt  "iSsäSiüsidi  e  erstellten  koerper  koe 
nnen  dann" 

85  prinf'auch  au-f  disk  abgespeichert  wer 
den .  " 

90  print"cCI"tab ( 1 1 ) "<  taste  druecken  >" ; 
95  poke  198,0  :  wait  198,1 
100  cl r : di m  pt ( 100 ,3) , zp ( 100) ,pa ( 100,3) 
105  pr  i  nt  "SläEtfeol  1  der  koerper  von  disk 
ei ngel esen " 

110  pri nt "werden  <j/n>  2" 

115  get  a$  :  i-F  af  =  "j"  then  lOOO 
120  if  a$  <>'*n"  then  115 

125  print"5#ft6lbi tte  um  die  eingabe  der  e 
inzelnen " 

126  print"eckpunk.te  mit  drei  koordinaten 
(x ,y,z) " 

Listing  »Simons  Axo« 
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127  pri nfETbei  :<='ende'  wird  die  eingabe 
beendet . " 

128  print  "Liibei  :<='£'  kann  der  vorige  pun 
kt  nachein" 

129  prinfmal  eingegeben  werden .  SW!" 


130 

print "  ( 

"a" 

) " ;  :  i nput 

pxf,py ,pz  : 

=val 

(px$>  : 

if 

px$="ende" 

then  200 

135 

if  px4= 

"  £  " 

then  a=a-l 

:  goto  130 

140 

pt (a , 1 ) 

= 

px 

145 

pt (a,2) 

= 

py 

150 

pt (a , 3) 

= 

pz 

155 

pa (a , 1 ) 

= 

p  t  ( a  ,  1 ) 

160 

pa (a , 2) 

= 

pt (a,2) 

165 

pa (a,3) 

= 

pt  <a,3) 

170 

a=a+l  : 

goto  130 

200 

rem 

201  rem  verbi ndungsor dnung 

202  rem 

205  ep  =  a— 1  :  pr i nt " SHÜMi n  welcher  reih 
en-falge  sollen  welche" 

210  print "punkte  verbunden  werden  ? 

215  pri  nt  "Sir  ende  '  beendet  die  eingabe  wi 
eder . " 

220  print " £!!'£'  laesst  die  korrektur  der 
vorigen  " 

225  print "eingabe  zu." 

230  input  Bausgangspunkt "  ;  a 
235  zp(0)=a 

240  b=l  :  print  "Eli"  :  rem  ei  ngabeschleif  e 
245  print  "von  ("a"  5  nach  :  :  input  al- 

:  i-f  a$=  "ende"  then  270 
250  i-f  a$  =  then  b=b-l  :  a=al  :  goto 

245 

255  al=a  :  a  =  val  (a40  : 

260  zp (b)  =  a 

265  b=b+l  :  goto  245 

270  sp=b- 1 

300  rem 

301  rem  koordi natensystem  festlegen 

302  rem 

305  print  "SS'Eliiiiiiibesti  mmen  sie  nun  das  ac 
hsen kreuz . " 

310  print "KillWIlg eben  sie  die  winkel  zwisc 
hen  :  " 

315  print  "SEIT 

320  print  tab(19)"  !" 

325  print  tab(19)"  I" 

330  print  "  z-  und  y-achse  " ; tab C 19) "NM" 
;tab(24)”z-  und  x-achse  " 

335  print  tab  (18)  "N  M”  tab  (  24)  “ iHill« iHlü! Hin Ue i  n  . 

345  print  tab(17)"N  M" 

350  rem 

355  input  "51  alpha  =  1 20  B  HR  Hl  Ul  Ql“  ;  al  :  print 

tab  (25)  input  "S  beta  =  IZOlililiS"  ;  bt 
360  al=al  *K/  180  :  b  t=b  t*v;;/ 1 80 

400  rem 

401  rem  Zeichenroutine 

402  rem 

405  hi res  5,0 
410  a=z p ( 0 ) 

415  xa  =  160  -  sin (al ) *pt (a,2)  +  sin(bt) 
*pt (a , 1 ) 

420  ya  =  100  -  pt(a,3)  -  cos(al)*pt(a,2) 
-  cos (bt ) *pt (a, 1 ) 

425  -for  b  =  1  to  sp 
430  a=zp(b) 

435  ;<s=160-sin  (al ) *pt  <a , 2) +si n (bt ) *pt (a , 
l):i-f  ;<s>319  then  x 5=319:  if xs<0thenxs=O 
440  ys=100-pt (a ,3) -cos (al ) *pt (a, 2) -cos (b 


t)  *pt  (a,  1 )  :  i-f  ys>li*?  then  ys=l?9 


441 

445 


and  a$ 


(3)  = 


5***l(4)  = 


drehung  der  -figur  um 
ausgangszustand  hers 
verschieben  der  figu 


if  ys<0  thenys=U 
line  !<a,ya,xs,ys,  1 
450  xa=xs  :  ya=ys 
455  ne*t 

460  if  ko  =  1  then  1410 
480  d$="£*Cf ertig^" 

485  text  5, 5, d* ,1,0,7 
490  get  af  :  if  af-  <>  chr$(133> 

>  chr$ (13)  then  490 

500  rem 

501  rem  hauptmenue 

502  rem 

505  nrm  :  pri  nt  "SP*  tab  (  10)  "hauptmenue 
510  print  tab ( 10) "EEEEEEEEEEEE" 

515  pr  int "  5T!Eslal83ÜB  ( 1 )  =  neues  achsen  kreuz 
520  pri  nt" »»IC 2) 
oo 

525  pri  nt  "SU 
teilen" 

530  print' 
r  " 

535  print' 
nz ei  ebnen ' 

545  print' 
perbaten" 

550  print' 

555  print' 

560  print' 

580  print  tab (10) 

585  get  a4-  :  if 
=""  then  585 

590  on  val (af)  goto  300,600,800,1300,140 
0 , 1  i  ~  ,  1500,  100 , 1220 
595  stop 

600  rem 

601  rem  drehung  der  figur  um  oo 

610  print"«Sffliiiiii!P!ldrehung  der  figur  um  oo 
:  " :  print'-MMiiHiEEEEEEEEEEEEEEEEEEEEEEEE" 
615  print"  S  US  81«  Wh  Wh  So  i  tte  waehlen  sie  aus  :  " 
620  print "SlillSlillMC  1 )  =  drehung  um  die  z— ac 

hse. 


(5)  =  koordi natenach sen  ei 


(6)  =  abspeichern  der  koer 


(7) 

(8) 
(9) 


=  hardcopy  auf  drucker 
=  neuer  start" 

=  zur  grafik  zurueck" 
"51(0)  =  ende" 

<"0"  or  a$  >"9"  or  a$ 


625  pri  nt  "»**1(2) 
se. 

630  pri  nt  "511**1  (3) 
se.  " 

635 

636 


get  a  : if 
z  =5+2* a  : 


a  < 
i  nv 


drehung  um  die  y-ach 

drehung  um  die  x— ach 

or  a  >3  then  635 
,3,29,1 


640  print  tab  (7)  " ElEliilbi tte  den  drehwinkel 
: :input  de  :  de=de*K/180 
645  on  a  goto  650,700,750 

650  rem 

651  rem  um  die  z— achse 
655  for  x=0  to  ep 

660  eo=atn  (pt  (:<  ,  1 )  /  (pt  (x  ,2)  —  le— 32)  )  -äv*  (p 
t  (x  ,2)  <=0)-2*K*  (pt  <x  ,  1 )  <0  andpt  <x  ,2)  >0) 
665  eo  =  eo+de  :  if  eo  >=  2*K  then  eo  = 
ea-2*H 


670  r=sqr  (pt  (:<  ,  1 )  t2+pt  (x  ,2)  T2) 

675  pt(x,l)=sin(eo)#r 
680  pt(x,2)=cos(ea)*r 
685  nex t 

690  goto  790  :  rem  return 

700  rem 

701  rem  um  die  y-achse 
705  for  x  =  0  to  ep 

710  ED-atn  (pt  (x  ,3)  /  (pt  (x  ,  l)-le-32>  ) -IM*  (p 
t  (x  ,  1 )  <  =0 )  -2*K*  (pt  <x  ,3)  -COandpt  (x  ,  1 )  >0) 
715  eo=eo+de  :  if  eo  >=  2*K  then  eo=eo-2 
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720  r  =  sqr (pt (x , 1) T2+pt (x ,3)T2) 

725  pt (x , 1 ) =co5 (so) *r 
730  pt (x ,3)=sin (eo) *r 
735  next 

740  goto  790  :  rem  return 

750  rem 

751  rem  um  die  x-achse 
755  for  x=0  to  ep 

760  eo=atn  (pt  (x  ,2)  /  (pt  (x  ,3>-le-32)  )  -H*  ( p 
t  (x  ,3)  <=0)  -2*ü“3*  (pt  (x  ,2)  COandpt  (x  ,3)  >0) 

765  eo=eo+de  :  i-f  eo>=  2*K  then  eo  —  eo- 
2*X 

766  r  =  sqr  (pt (x ,2) T2+pt (x ,3) t2) 

770  pt(x,3)=cos(ea)*r 

775  pt (x ,2) =sin (eo) *r 
780  next 

790  cset  2  :  goto  400  :  rem  return 

800  rem  ausganagszustand 

801  rem 

B10  for  x  =  0  to  ep 
820  for  y  =  1  to  3 
830  pt  (x ,y) =pa(x ,y) 

B40  nexty ,x 
850  goto  400 

999  rem 

1 000  rem  daten  vom  der  disk  holen 

1001  rem 

1010  open  1,8,15  :  rem  fehlerkanal 
1015  print"ll:llSt)i  tte  dateinamen  :  " ;  :  inpu 

t  ns$  :  n$=ns$ 

1020  ns$=ns$+",s,r" 

1025  open  2, 8, 2, ns* 

1030  gosub  1250 

1032  if  fl  =62  then  close  2  r  goto  1015 
1035  print  "IffiiTlei  niesen  der  daten  von  :";n 
*• 

1040  input#2,ep 
1045  input#2,sp 
1050  for  x  =  0  to  ep 
1055  for  y  =  1  to  3 

1060  input#2,pt (x ,y)  :  pa (x , y ) =pt (x , y) 

1065  next  y 

1070  gosub  1250 

1075  next  x 

1080  for  x  =  0  to  sp 

1085  input#2,zp (x ) 

1090  next  x 
1095  gosub  1250 

1097  close  2  :  close  1  :  goto  300 

1100  nrm  :  rem  koerperdaten  auf  disk 

1101  rem 

1110  print  "S5ii!;'ß'llf®®!ii®iiB®lkoerperdaten  auf 
disk: " 

1 120  print " W»*»Bb»»iEEEEEEEEEEEEEEEEEEEEEE 

II 

1130  print  "SrCOaitte  dateinamen  :  inp 

ut  na$ 

1140  open  1,8,15  :  rem  fehlerkanal 
1150  ns$=ns$+",5,w" 

1160  open  2, 8, 2, ns* 

1162  print#2,ep  :  print#2,sp 
1165  for  x  =  0  to  ep  :  rem  punkte 
1170  for  y  =  1  to  3 
1180  print#2,pt (x ,y) 

1185  next  y 
1190  gosub  1250 

1195  next  x 

1200  for  x  =  0  to  sp  :  rem  verb i ndungsvo 
rschr if t 

1205  print#2,zp (x ) 


1210  next 
1215  gosub  1250 

1220  close  2  :  close  1  :  cset  2  :  goto  4 
90 

1250  rem 

1251  rem  fehlerkanal 

1252  rem 

1255  inputttl ,f 1 ,f I*,f2,f3  :  if  fl  =  0  th 

en  return  :  rem  kein  fehler 

1260  print  ,,3E19'ffiilllul!pif  ehler  auf  der  disk  !  " 

1265  print "äW&rf  l,f  l$MiB  "f3M  "f4 

1270  print “ElElbitte  mit  <return>  bestaeti 

gen, oder  mit” 

1275  print " WMfrC space >  das  programm  abbre 
chen  ! " 

1280  getan*  :  if  an*  =  ehr* (13)  then  ret 
urn 

1285  if  an*  <>  ehr* (32)  then  1280 
1290  close  1  :  stop 

1300  rem 

1301  rem  verschieben  der  figur 

1302  rem 

1305  print">}i®#iWHh/erschieben  der  figur 
:  "  :  pri  nt  "Sifiiisis^EEEEEEEEEEEEEEEEEEEEEEE" 
1310  print "äfcfcMUfaitte  um  den  verschiebe 

vektor  in  der" 

1315  print"form  'x,y,z'  ! " 

1320  input"STEIlvektor  :";px,py,pz 

1322  print"S^EliB'lliabitte  etwas  geduld 

1325  for  a=0  to  ep 

1335  pt(a.l)  =  pt(a,l)  +  px 

1340  pt(a,2)  =  pt(a,2)  +  py 

1345  pt(a,3)  =  pt(a,3)  +  pz 

1350  next  a 

1360  goto400 

1400  rem 

1401  rem  koordi natenachsen 

1402  rem 

1405  if  ko=l  then  ty=0  :  ko=0  :  goto  141 
5 

1410  ko=l  :  ty  =  1 

1415  xs=160— sin (al ) *95  :  x 1=160— si n (al ) * 
105 

1420  ys=100— cos (al ) *95  :  y l=100-cos (al ) * 
105 

1425  char  x 1 ,yl ,25,ty, 1 

1430  line  160 , 100 , xs , ys , ty  :  rem  y-achse 
1435  xs=160+si n (bt ) *95  :  x l=160+sin (bt ) * 
102 

1440  ys=100— cos (bt ) *95  :  y 1=100— cos (bt ) * 
105 

1445  line  160 , 100, xs , ys , ty  :  rem  x-achse 
1450  char  x 1 ,y 1 ,24 , ty , 1 

1455  line  160, 100, 160, 10, ty  :  rem  z=achs 
e 

1460  char  155,0, 26, ty , 1 
1470  cset  2  :  goto  480 

1500  rem 

1501  rem  hardcopy 

1502  rem 

1505  text  5, 5, df ,0,0,7 
1510  d*="<hardcopy>" 

1515  text  5, 5, d*, 1,0, 8 
1520  cset  2 
1525  copy 

1530  text  5, 5, d*-, 0,0,8 
1535  goto  480 

ready. 
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Trace  und  Single  Step  für 
Maschinenprogramme 


Maschinenprogramme  stürzen  bei 
Fehlern  meist  ohne  Hinweis  auf  den 
Fehlerort  ab.  Mit  Trace  lassen  sich  Ma¬ 
schinenprogramme  Befehl  für  Befehl 
abarbeiten.  Es  werden  dabei  die  mo¬ 
mentanen  Registerwerte  (Programm¬ 
counter,  X-,  Y-Register,  Akku,  Stack¬ 
pointer  und  Flags)  angezeigt.  Diese 
Werte  lassen  sich  ohne  weiteres  än¬ 
dern.  Als  Dreingabe  erscheinen  auch 
noch  der  Zustand  des  User-Ports  und 
des  Datenrichtungsregisters  B  auf 
dem  Bildschirm. 

Das  Programm  läßt  eine  Ausführung  von  Maschinenpro¬ 
grammen  im  Einzelschrittmodus  zu.  Dabei  wird  das  Programm 
wirklich  ausgeführt  also  nicht  simuliert.  Es  bietet  Einzelschritt, 
langsam  und  schnellen  Trace.  Alle  Register  werden  angezeigt 
und  können  verändert  werden.  Zusätzlich  wird  der  Befehl  dis- 
assembliert.  Laden  und  Abspeichern  des  Programms  ge¬ 
schieht  je  nach  Assemblerversion  des  Lesers.  Das  Assembler¬ 
programm  erlaubt  ein  freies  Verschieben  von  Trace  durch  Än¬ 
derung  in  Zeile  100:  *=$XXXX.  Der  Startwert  für  PC  (Pro¬ 
grammcounter)  kann  in  Zeile  270  frei  gewählt  werden. 

Programmfunktionen 

Nach  dem  SYS- Befehl  befindet  man  sich  im  Tracemodus.  Es 
sind  nur  die  Tasten  Fl  bis  F7  und  X  für  Exit  aktiv.  Folgende  Re¬ 
gister  werden  angezeigt: 

1.  PC  =  Programmcounter. 

2.  SP  =  Stackpointer. 

3.  YR  =  Y-Register. 

4.  XR  =  X-Register. 

5.  AC  =  Akkumulator. 

6.  Prozessorstatusflags. 

7.  User-Port  mit  Datenrichtungsregister.  Entsprechende  Ein¬ 
gangsleitungen  sind  revers  dargestellt. 

8.  Es  werden  1  bis  3  Hexbytes  angezeigt,  die  verändert  wer¬ 
den  können,  dann  wird  der  Befehl  disassembliert  dargestellt. 
Trace  wartet  jetzt  auf  einen  Tastendruck.  Der  Programmcoun¬ 
ter  zeigt  am  Anfang  auf  Hex  C000. 


Folgende  Tastenfunktionen  stehen  zur  Verfügung: 

Taste  F7  =  Einzelschritt.  Pro  Tastendruck  wird  ein  Befehl  des 
Testprogramms  ausgeführt  (genauer  gesagt  beim  Loslassen 
von  Fl).  Danach  werden  wieder  die  Register  angezeigt  und 
disassembliert. 

Tast  F5  =  Slow  Trace.  Solange  diese  Taste  gedrückt  ist,  wird 
das  Testprogramm  Befehl  für  Befehl  abgearbeitet,  die  Register 
angezeigt  und  pro  Befehl  noch  zusätzlich  um  zirka  65  ms  ver¬ 
zögert. 

Taste  F3  =  Tast  Trace.  Wie  F5  jedoch  ohne  Verzögerung. 
Taste  Fl  =  Set  Register,  Editmodus.  Durch  Drücken  von  Fl 
kommen  Sie  in  den  Editmodus. 

Beschreibung  Editmodus 

Die  erste  Ziffer  des  Programmcounters  wird  zur  Kennzeich¬ 
nung  des  Cursororts  revers  dargestellt.  Sie  können  jetzt  alle 
angezeigten  Werte  überschreiben.  Der  Stackpointer  und  die 
Usen  ;rt-Anzeige  können  zwar  überschrieben  werden,  dies 
hat  aber  keinen  Einfluß  auf  die  Werte.  Eine  Veränderung  des 
SP  würde  meist  zum  Absturz  des  Systems  führen,  da  die  CPU 
nach  dem  Interrupt  nicht  mehr  die  korrekten  Rücksprung¬ 
adressen  auf  dem  Stack  vorfindet.  Die  Cursor-Right-Taste  be¬ 
wegt  den  Cursor  nach  rechts,  die  Cursor-Up-Taste  nach  links. 
Neben  diesen  Steuertasten  sind  nur  die  Tasten  A  bis  F,  0  bis 
9  für  die  Hexziffern,  der  »Pfeil  nach  oben«,  um  ein  Flag  zu  set¬ 
zen,  und  das  »Minuszeichen«,  um  ein  Flag  zu  löschen,  sinnvoll. 
Die  Spacetaste  ist  auch  erlaubt. 

Die  DELETE-Taste  funktioniert  nicht.  Entsprechen  die  Ände¬ 
rungen  in  der  PC-Zeile  Ihren  Wünschen,  dann  drücken  Sie 
(RETURN)  und  können  die  disassemblierte  Zeile  editieren. 
Hier  sind  je  nach  Befehlslänge  1  bis  3  Hexbytes  am  Anfang 
der  Zeile  veränderbar,  das  heißt  Sie  können  die  Operanden 
oder  auch  den  Opcode  selbst  noch  vor  der  Ausführung  verän¬ 
dern,  was  zum  Austesten  von  Programmen  sehr  praktisch  ist. 
Verlassen  können  Sie  die  disassemblierte  Zeile  wieder  mit 
(RETURN).  Sie  befinden  sich  jetzt  wieder  im  Tracemodus,  das 
heißt  die  Tasten  Fl,  F3,  F5,  F7  und  X  sind  wieder  aktiv. 

Den  Tracemodus  können  Sie  durch  Drücken  der  X-Taste  ver¬ 
lassen,  der  Computer  ist  jetzt  im  Basic-Editmodus.  Trace  kann 
mit  SYS  49152  wieder  gestartet  werden,  wobei  hier  der  Disas¬ 
sembler  immer  aktiviert  ist.  Starten  Sie  mit  SYS  49160,  dann 
ist  der  Disassembler  nur  beim  Editieren  an,  Trace  ist  dann  et¬ 
was  schneller.  Setzen  Sie  Trace  nicht  auf  sich  selbst  an. 
Funktionsweise 

Siehe  hierzu  auch  Assemblersourcelisting.  Zuerst  schalte 
ich  den  normalen  Tastaturinterrupt  über  Timer  A  aus  und  be¬ 
nütze  den  Timer  B  in  CIA  1  für  meine  Interruptroutine.  Timer 
A  läuft  zwar  weiter,  aber  sendet  keine  IRQ  mehr.  Dann  setze 
ich  den  IRQ-Vektor  auf  Trace.  Trace  initialisiert  beim  Start  den 
Stack  und  beginnt  dann  mit  der  eigentlichen  Einzelschrittrouti¬ 
ne.  Diese  Routine  dient  als  neue  Interruptroutine,  da  der  IRQ- 
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Vektor  auf  Trace  geändert  wurde.  Der  Interrupt  wird  aber  nicht 
mehr  alle  ‘/6o  Sekunde  durch  den  Timer  A  ausgelöst,  sondern 
durch  Timer  B  und  zwar  alle  25  Mikrosekunden  nach  Start  des 
Timers. 

In  dieser  Zeit  kann  der  Prozessor  das  Ende  der  normalen 
IRQ-Routine  durchlaufen  (Register  vom  Stack  holen).  Jetzt 
bleibt  aber  nur  mehr  Zeit,  um  einen  Befehl  des  Testprogramms 
abzuarbeiten,  da  Timer  B  ja  schon  in  genau  einer  Mikrosekun¬ 
de  erneut  einen  IRQ  sendet.  Der  Prozessor  legt  nach  diesem 
einen  Befehl  alle  Register  auf  den  Stack  und  verzweigt  ent¬ 
sprechend  dem  IRQ-Vektor  wieder  auf  Trace.  Für  genauere  In¬ 
formation  siehe  Listing.  Innerhalb  der  Traceroutine  wird  ein 
IRQ  nicht  akzeptiert,  da  sich  sonst  das  Programm  immer  selbst 
unterbrechen  würde.  Trace  läßt  sich  also  nur  durch  einen  NMI 
unterbrechen. 

Beispiel: 

SYS  49152  =  Trace  starten.  Disassembler  an. 

Taste  Fl  drücken  =  Editmodus  wählen. 

PC  auf  $AF08  setzen.  Diese  Systemroutine  gibt  »Syntax  Er¬ 
ror«  aus.  Sie  können  zum  Spaß  auch  die  Register  verändern, 
benützen  Sie  auch  die  Cursorsteuertasten. 

RETURN  drücken  =  Edit für  disassemblierte  Zeile.  Hier  kön¬ 
nen  Sie  die  Hexbytes  editieren.  Eine  Änderung  hätte  aber  kei¬ 
nen  Sinn,  da  wir  ja  eine  ROM-Routine  tracen.  Drücken  Sie  nur 
(RETURN),  und  Sie  gelangen  wieder  in  den  Tracemodus. 

F 7  drücken  =  Einen  Befehl  ab  PC  ausführen. 

F5  drücken  =  Trace.  Anzeige  läuft.  Flags  werden  in  schneller 
Folge  geändert.  Die  disassemblierte  Zeile  ändert  sich  sehr 
schnell.  Halten  Sie  die  Taste  gedrückt,  nach  ein  paar  Sekun¬ 
den  sehen  Sie  schön  langsam  Buchstabe  für  Buchstabe  »Syn¬ 
tax  Error«  erscheinen.  Befindet  sich  der  Cursor  zufällig  gerade 
am  unteren  Bildschirm rand  und  ist  der  Bildschirm  vollgeschrie¬ 
ben,  dann  kann  man  schön  verfolgen,  wie  die  Scrollroutine  ar¬ 
beitet,  der  Bildschirminhalt  wird  Zeile  für  Zeile  nach  oben  ge¬ 
schoben,  um  Platz  für  die  Meldung  zu  machen. 


(Jürgen  Göbel/aa) 
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BMI  NUS 

C233 

BYT 

C1F6 

L007 

C2FB 

LOOS 

C311 

CIA 

DC  00 

CLE1 

C27E 

L009 

C31A 

LOOP 

CI  BF 

CODI 

CA  83 

C0D2 

C484 

LOOP  1 

C1D2 

MREAD 

C1SF 

COD3 

C435 

C0DE2 

C33D 

OFFSET 

C2 1 6 

OLDX 

C482 

CODEL 

C486 

C0DL3 

C375 

OLDY 

C481 

OPP 

C32S 

COL. 

D800 

CONTI 

C079 

PP0IN1 

C2BE 

PPOIN2 

C2C4 

C0NT2 

C090 

C0NT3 

C0A4 

PP0IN3 

C2CA 

PRBYTE 

C10E 

CONT4 

C0E9 

C0NT6 

C17D 

PREAD1 

C404 

PREAD2 

C422 

CRB 

DC  OF 

DDRB 

DDO  3 

PREAD3 

C43D 

PRIZEI 

C12C 

DISAS 

C274 

DISOFF 

C05C 

READ 

CIA2 

READPC 

C3D5 

DISON 

C487 

ENDAS 

C3CE 

READY 

A473 

RECHTS 

CI  73 

EREAD 

C4  40 

EX  IT 

C0F1 

REGISTER 

C063 

REVERSE 

CI  60 

FAST 

COCF 

FLSETZ 

C081 

SCREEN 

0400 

SET 

C13E 

SET 

CI  38 

GO 

COOD 

SLOW 

C0E7 

SPACE 

C12A 

HEX 

C469 

ICR 

DCOD 

STACK 

0100 

START 

CI  43 

IRQVEK 

0314 

LAENGE 

C253 

TADR 

C800 

TAST 

EA87 

LBIT 

C209 

LINKS 

CI  69 

TEXT 

C44I 

TH 

DC07 

L001 

C271 

L0010 

C34D 

TITEL 

C037 

TL 

DC  06 

LOOl  1 

C356 

LOOl.  2 

C365 

TMP 

C479 

TMP  1 

C4B0 

L0013 

C381 

L0014 

C394 

TRACE 

C034 

TSTART 

C500 

L0015 

C3AS 

LOOl  6 

C3BB 

USETZ 

C098 

WA  IT 

COAE 

L002 

C272 

L003 

C2?3 

WAITL 

C0C8 

ZAHL 

C213 

LOOS 

C2A4 

LC06 

C2B8 

ZEICHHOL 

C182 

Listing  von  »Trace  und  Single  Step« 


*-  49 1 52 

TRACE  /  SINGLE  STEP  EUER  C64 
+D1SASSEMBLER  /  EDITOR 
JUERGEN  GOEBEL 
8  MUENCHEN  82 
6R0SCHENWEG  19 

TEL.  089  I  432709 


ISO: 
160: 
160: 
160: 
170: 
170! 
180: 
ibo: 
180: 
180: 
190: 
200: 
200: 
200: 
2io: 
210: 
2io: 
210: 
220: 
220: 
230  : 

230: 
230: 
240: 
240: 
230 : 
2S0: 
230 : 
250: 
260: 
260 : 
260: 
260: 
270 : 
270  : 
7.70 
270: 
280: 
2801 
280: 
280: 
280: 
280: 
290: 
290; 

290 : 
300: 
300 : 

300: 

3io: 

3io: 
3io: 
310: 
320: 
320! 
320: 
330: 
330 : 
340; 
340: 
340: 
330 : 
360: 
360 : 
360: 
370: 
370: 
370: 
370 : 
380: 
390 : 
400: 

400 : 

400*. 

400: 

410: 

410: 

410*. 

420: 

420: 

420: 

420; 

430: 

440: 

440: 

440: 

440: 

430: 

430: 

430 : 

460: 

460! 

460: 
460 : 
470*. 
470 
480 
480 


cooo 

cooo 

cooo 

cooo 

cooo 

cooo 

cooo 

cooo 

cooo 

cooo 

cooo 

cooo 

cooo 

cooo 

cooo 

C001 

C003 

C0O6 

C008 
COOA 
COOD 
COOE 
C010 
CO  1 3 
CO  15 
CO  18 
CO  1 A 
CO  1 D 
CO  1F 
C020 
C022 
CÖ23 
C025 
C026 
C028 
.029 
C02B 
C02C 
C02E 
C02F 
C031 
C032 
C033 
CO  34 
C033 
C037 
C03A 
C03D 
C02F 
C04 1 
C042 
C04S 
C048 
C04B 

C04G 

C051 
CO  54 
C037 
COS? 

C05C 
C05F 
C060 
C063 
C066 
C069 
C06C 
C06D 
C06F 
C071 
C074 
C077 
CO  79 
C07A 
C07B 
C07D 
C07F 
C081 
C084 
C085 
C086 
CO  88 
C06D 
C08D 
C090 
C091 
C092 
C094 
C096 
C098 
C09B 
C09C 
CO«?D 
C09F 
COA1 
C0A4 
C0A7 
C0A8 
COAB 
COAC 


EA 

A9  00 
8D  87 
FO  05 
A9  FF 
8D  87 
70 

A9  34 
8D  14 
A9  CO 
8D  15 
A9  82 
8D  OD 
A2  FF 
9A 

A9  A4 


48 

D8 

AO  00 
B9  41 
20  2C 
CO  28 
DO  Ft 
BA 

BD  06 
8D  7C 
20  OE 
BD  05 
00  7D 
20  OE 
AD  87 
30  03 

20  74 
20  2A 
8A 

20  OE 
20  2A 
BD  01 
20  OE 
E8 

CO  38 
90  F2 
20  2A 
BD  01 
A2  08 
OA 
48 

A9  5E 
BO  02 
A9  2D 
20  2C 
68 
CA 


OA 

48 

A9  31 
BO  02 
A9  30 
20  2C 
68 
CA 

DO  Fl 
A2  08 
AD  03 
IE  41 
4A 


IRQVEK 
STACK 
COL 
SCREEN 
READY 
CIA 
TL 
TH 
TAST 
DDRB 
ICR 
CRB 
TST  ART 

NOP 

IDA 

STA 

BE9 

LDA 

STA 

GO  SCI 

LDA 
STA 
LDA 
STA 
LDA 
STA 
LDX 
TXS 
LDA 
PHA 
LDA 
PHA 
LDA 

PHA 
LDA 
PHA 
LDA 
PHA 
LDA 
PHA 
PHA 
PHA 
CLD 
LDY 
LDA 

CI  JSR 

CPT 
BNE 
TSX 

01  LDA 

C4  STA 

CI  JSR 

01  LDA 

C4  STA 

CI  JSR 

C4  LDA 

BMI 

C2  JSR 

CI  DISOFF  JSR 
TXA 

CI  JSR 

CI  REGISTER  JSR 
01  LDA 

CI  JSR 

INX 
CPY 
BCC 

CI  JSR 

01  LDA 

LDX 

CONTI  ASL 

PHA 
LDA 
BCS 
LDA 

CI  FLSET2  JSR 

PLA 
DEX 
BNE 

CI  JSR 

LDX 

DD  LDA 

C0NT2  ASL 

PHA 
LDA 
BCS 
LDA 

CI  USETZ  JSR 

PLA 
DEX 


TRACE 
C4  TITEL 


J HINTERGRUND? ARBE 


1  TIMERWERTE 


5  TASTATURROUT . 


I INTERR. CONTROLREG. 


00, PI 

S314 

S100 

55296 

1024 

♦A4  74 -  1 
SDCOO 
CIA*6 
CIA  +  7 
SEA87 
SDD03 
C I A  + 13 
CIA* 15 
*+*0500 

MO 


M<  TRACE 

IRQVEK  URO  VEKTOR 
M  >TRACE 

IRQVEK+ 1  SAUF  TRACE 


130 


l T IMER  B  INTERRUPT  ERLAUBT 


ICR 
M25S 

(STACK  INITIAL. 
W>READY  {STACK  FUER  TRACE 
5  VORBEREITEN 

M< READY 

MSCO  |PC-*COOO 


MO 

TEXT, Y 
PRIZE1 
*40 
TITEL 


{KOPFZEILE 
! AUSGEBEN 


STACK *&.X  »PC  AUSGEBEN 

TMP*  3 

PRBYTE 

STACK*3,X 

TMP  *4 

PRBYTE 

DISON 

DISOFF 

D1SAS 

SPACE 

|SP  AUSGEBEN 

PRBYTE 
SPACE 
STACK* l ,X 

PRBYTE 

M56 

REGISTER 

SPACE 

STACK* 1,X  {PROZESSORSTATUS-FLAGS  ANZEIGEN 
»8 


M94 

FLSETZ 

M45 

PRIZEI 


MS31 

USETZ 

MS30 

PRIZEI 


{PFEIL 

{MINUS 


lUeCRPOPT  ANZETGFN 


LDX 

LDA 

ASL 

LSR 

ROR 

DEX 

BNE 


C0NT2 

n&  | DATENRICHTUNGSREGISTER 

DDRB  {LADEN 

SCREEN +63, X 

(ENTSPRECHENDE  BITS  DER  ANZEIGE 
SCREEN+63 , X  ; WEHDEN  INVERTIERT 

C0NT3 


Ausgabe  12/Dezember  1984 


77 


TIPS  &  TRICKS 


► 


C  64 


490 

490 

490 

500 

S00 

510 

510 

520 

520 

520 

520 

530 

540 

540 

540 

550 

550 

560 

560 

560 

560 

560 

5^0 

S?0 

570 

570 

580 

580 

590 

590 

59C 

590 

590 

600 

610 

610 

610 

610 

620 

620 

620 

620 

620 

630 

630 

630 

640 

640 

640 

640 

640 

640 

650 

650 

650 

660 

660 

660 

660 

660 

670 

680 

690 

700 

700 

700 

700 

700 

710 

710 

710 

720 

720 

730 

730 

730 

730 

740 

740 

740 

740 

750 

750 

750 

750 

760 

770 

770 

770 

780 

780 

700 

780 

780 

790 

790 

790 

790 

790 

800 

800 

800 

810 

810 

810 

820 

82ö 

820 

820 

830 

840 

840 

840 

840 

850 

850 

850 


CO  AE 

COBI 

C0B3 

C0B5 

C0B7 

C0B9 

C08B 

COBD 

COBF 

C0C1 

C0C3 

COC5 

C0C8 

COCB 

COCD 

COCF 
CODI 
C0D4 
COD6 
COD9 
CODB 
CODE 
COE  I 
CÖE2 

COE  3 
C0E4 
C0E5 
C0E6 
C0E7 
C0E9 
COEA 
COEC 
COED 

COEF 
C0F1 
C0F3 
C0F6 
COF8 
C0F8 
COFD 
ClOO 
CI  02 
C 105 
C 107 
C10A 
C10B 
C10E 
C10F 
CI  12 
CZ  13 
CI  14 

CI  15 
CI  16 
CI  17 
CUA 
CI  ID 
C11E 
C 120 
C121 
C124 
CI  27 
C12A 
C12C 
C12E 
C131 
C 1 33 
C 136 
C137 
CI  38 
C13B 
CI  30 
C13E 
C141 
C 143 
C 146 
C148 
C14B 
C14E 
C151 
C 154 
C  156 
CI  58 
C15A 
CISC 
C15F 
C 160 
C 163 
C 165 
C  1 68 
C  169 
C16B 
C16D 
CI  70 
C 171 
C173 
C17S 
C177 
C17A 
C17B 
C17D 
C  1 80 
C 182 
CI  84 
C 106 
C  1 89 
CISC 
C18E 
C 190 

CI  92 
C 195 

C 197 

C 199 
C 198 
C19E 
C 1  Al 
C1A2 
C1A5 
CIA? 


20  38  CI 

C9  17 

FO  3C 
C9  05 
FO  16 
C9  06 
FO  2A 
C?  03 
FO  07 
C9  04 
00  E9 
4C  3E  CI 
20  38  CI 
C9  40 

DO  F9 
A9  16 
80  06  DC 
A9  OO 
80  07  DC 
A9  11 
8D  OF  DC 
AD  OD  DC 
68 
A8 


SLOW 

C0NT4 


DO  FD 
88 

DO  FA 
FO  DE 
A9  02 
80  OD  DC 
A9  31 
OD  14  03 
A9  EA 
8D  15  03 
A9  04 
8D  8B  02 
A9  10 
8D  8C  02 
58 

4C  74  A4 


29  OF 
AA 

BD  69  C4 
AE  79  C4 

4C  2C  CI 

A9  20 
29  3F 
99  OO  04 
A9  01 
99  00  D8 
C8 
60 


60 

20  74  C2 
AO  28 

B9  OO  04 

09  80 
99  00  04 
8C  79  C4 

20  82  CI 
AC  79  C4 
C9  OD 
DO  11 
CO  64 
10  03 
4C  A2  CI 
60 

B9  OO  04 
29  7F 
99  00  04 
60 

C?  11 
DO  06 
20  60  CI 
88 

DO  DO 
C9  ID 
DO  06 
20  60  CI 
C8 

DO  C6 
20  2C  CI 
DO  CI 
A9  00 
85  C6 
20  ©7  EA 
AD  7?  02 
C9  OO 
FO  F2 
AO  OO 
8C  77  02 
C9  85 

FO  E9 
AO  40 
8C  8B  02 
8C  ec  02 
60 

20  60  CI 
AO  28 


SPACE 

PRIZEI 


SET 

START 


JSR  GET 
CMP  »23 
BEO  EXIT 
CMP  MS 
BEQ  FAST 
CMP  »6 
BEQ  SLOW 
CMP  113 
BEO  WAHL 
CMP  »4 
BNE  WA IT 
JMP  SET 
JSR  OET 
»64 


CMP 


i WARTET  AUF 

5  F 1 , F3 • F5 ,  F?  ODER  X 


•UND  VERZWEIGT  ENTSPRECHEND 


; WARTET  BIS  F7  WIEDER  LOSGELASSEN 


I  TIMER  LADEN 


STA  TL 
LDA  »0 
STA  TH 
LDA  »17 


PLA 
TAY 
PLA 
TAX 
PLA 
RTI 

LDX  NO 
DEX 

BNE  C0NT4 
DEV 

BNE  C0NT4 
BEQ  FAST 
LDA  «2 
STA  ICR 
LDA  »*31 
STA  IROVEK 
LDA  »*EA 
IROVEK *1 
LDA  »4 
STA  8028B 
LDA  »16 
STA  S028C 
CLI 

JMP  READY*1  ; SPRUNG  ZU  BASIC 

PHA  J1  BYTE  ALS  2  HEXZ.  AUF  SCHIRM 


LSR 

LSR 

LSR 

LSR 

TAX 

LDA  HEX , X 
JSR  PRIZEI 
PLA 

AND  H*OF 
TAX 

LDA  HEX.X 
LDX  TMP 
JMP  PRIZEI 
LDA  MS20 

AND  »S3F  ! WEGEN  BILDSCHIRMCODE 

STA  SCREEN.Y 

LDA  »1  i FARBE  SETZEN 

STA  COL.Y 

INY 

RTS 

JSR  TAST 


I  SETZT  IRQ  VEKTOR  AUF 
i ALTEN  WERT 


SREPEAT  KORR 16. 


S4ER  □ r 


: 


( HOLT  TASTENCODE 


JSR  DISAS 

LDY  »40  ;F1  TASTE 

LDA  SCREEN.Y 

ORA  »128 
STA  SCREEN.Y 
STY  TMP 

JSR  ZEICHHOL  IE INGABEROUT. 

LDY  TMP 

CMP  »13 

BNE  LINKS 

CPY  »lOO 

BPL  MREAD 

JMP  READ 


MREAD 

REVERSE 


RTS 

LDA 

AND 


C0NT6 

ZEICHHOL 


?  ZUR  LESEROUTINE 
SCREEN.Y  J INVERTIEREN 
»127 
STA  SCREEN.Y 
RTS 

CMP  »17  I  CURSOR  LINKS 

BNE  RECHTS 
JSR  REVERSE 
DEY 

BNE  START 
CMP  »29 
BNE  CONT 
JSR  RE VE 
INT 
BNE 
JSR 
BNE 


START 

PRIZEI 

START 


I  CURSOR  RECHTS 


| WERT  ANZEIGEN 


| TAST. ABFRAGE 


CMP  »O 

BEO  ZEICHHOL 

LDY  »O 

STY  «277  | TASTATURPUFFERSTART 

CMP  »*85  |F1  TASTE 

BE©  ZEICHHOL 

LDY  »64  IVERZOEGERUNG  REPEAT2AEHLER 

STY  «28B 
STY  «28C 

RTS 
JSR 
LDY 
TSX 


REVERSE 

•40  JPC  LESEN 


Listing  von  »Trace  und  Single  Step«  (Fortsetzung) 


850: 
eso: 
860: 
860 : 
860: 
870: 
870 : 
870: 
870  : 

070: 
070 : 
880: 
880 : 
880: 
880: 
880: 
890 : 

890: 

900: 

900: 

900: 

900: 

900*. 

910: 

910; 

920: 

920: 

920: 

920*. 

920: 

920: 

930: 

930: 

930: 
930 : 
930: 
9«o: 
940: 
940: 
940: 
940: 
940: 
940: 
950: 
950: 

950: 
950: 
960: 
960: 
960 : 

960: 

970: 

970: 

970: 


C1A8 
C 1  AB 
C 1  AE 
CIB1 

CIB2 
CIB5 
C1B8 
C1BB 
C1BC 
CIBD 
CI  BE 
CI  BF 
C1C0 
C1C3 
CIC6 
C1C7 
C1C8 
CICA 
CICC 
CICD 
CICF 
CID2 
C1D5 

C1D7 
C1D9 
C 1  DC 
C 1  DD 

C 1  DF 

C1E1 
C1E2 
CIE5 
C1E7 
CiEA 
C1ED 
C1F0 
CIF3 
C1F6 
CiF9 
C  IFA 
C1FB 
C1FC 
CIFD 
CIFE 
C201 
C  204 
C2Ö5 
C2G8 
C209 
C20C 
C20E 
C210 
C212 
C213 
C215 


20  F6  CI 

9D  06  Ol 
8D  7C  C4 
C8 

20  F6  Cl 
9D  05  01 
8D  7D  C4 


20  F6  Cl 
9D  01  Ol 


C8 

A9  00 
8D  79  C4 
B9  00  04 
29  1F 
C9  IE 
2E  79  C4 
C8 

CO  41 
DO  Fl 
BA 

AD  79  C4 
29  FB 
9D  04  01 

20  74  C2 
20  D5  C3 
20  74  C2 
4C  AE  CO 
20  09  C2 

OA 

OA 


BYT 


JSR 

STA 
STA 
INY 
JSR 
STA 
STA 
INY 
INY 
INY 
INT 
INY 
JSR 
STA 
INY 
I  NX 
CPY 
BNE 
INY 
LDA 
STA 
LDA 
AND 
CMP 
ROL 
INY 
CPY 
BNE 
TSX 
LDA 
AND 
STA 
JSR 
JSR 
JSR 
JMP 
JSR 


BYT 

STACK*6, X 
TMP»  3 

BYT 

STACK+5 , X 
TMP*4 


:SP  UEBERLESEN 


I REGISTER  LESEN 

BYT 

STACK* i , X 


»0 

TMP 

SCREEN.Y  I  FLAGS  LESEN 

«100011111 

»30 

TMP 

»65 

L00P1 

TMP 

»%Ii 111011  {2  FLAG  LOESCHEN 
STACK *4, X 

DJSAS 
READPC 
DISAS 
WA  IT 

LBIT  ;S  BIT  ZAHL  VON  SCREEN  HOLEN 


990:  C216 

C219 
-21 B 

iooo:  C2ic 

1000:  C21E 

iooo:  C221 

iooo:  C224 

1010:  C227 


1010:  C22F 

1010:  C232 


1020: 

1020: 

1020: 

1020: 

1030: 

1030: 

1030: 

1030: 

1040: 

1040: 

1040: 

1040: 

1040: 


io9o: 

I  ioo: 
1100: 
uoo: 
1100: 

I I  io; 
1110: 
mo: 
l  no: 
1120: 
1120: 
1120: 
1120: 

1130: 

1130: 

1140: 

1140: 

1140: 

Uso: 

1150: 

1160: 

1160: 

1160: 

1170: 

1170: 


1190: 

1190: 

1190: 
1190: 
1 190: 
1190: 


8D  79  C4 
20  09  C2 


60 

B9  00  04  LBIT 
C9  30 
BO  03 
69  39 
38 

E9  30  ZAHL 


AD  84  C4 
30  18 
18 

69  02 
6D  7D  C4 
3D  80  C4 
AD  7C  C4 
69  00 

20  OE  Cl 
AD  80  C4 
20  OE  Cl 
60 

49  FF 
38 

E9  Ol 
8E  79  C4 
AD  7D  C4 
ED  79  C4 
8E  80  C 4 
AD  7C  C4 
E9  00 
20  OE  Cl 
AD  80  C4 
20  OE  Cl 
60 


AO  01 
C9  20 
FO  18 
29  9F 
FO  16 
29  1F 
C9  09 
FO  OF 
C9  19 
FO  OA 
29  OD 
C9  08 
FO  06 
29  08 
FO  01 
C8 
C8 


TMP 

LBIT 

TMP 

SCREEN.Y  |1  BYTE  VON  SCREEN  IN  HEX 

»48 

2AHL 

•57 

»48  * 


IBRANCH  VOR 


C233 

C235 

C236 

C238 

C23B 

C23E 

C241 

C244 

C247 

C249 

C24C 

C24F 

C252 


C253 
C255 
C237 
C259 
C25B 
C23D 
C25F 
C261 
C263 
C265 
C26  7 
C269 
C26B 
C26D 
C26F 
C271 
C272 
C273 
C274 
C277 
C27A 
C27C 
C27E 
C281 
C282 


C284  AD  7D  C4 
C287  8D  BF  C2 
C28A  8D  7F  C< 
C28D  AD  7C  C4 
C290  8D  CO  C2 
C293  6D  7E  C4 


ASL 
ASL 
ASL 
INY 
STA 
JSR 
CLC 
ADC 
RTS 
LDA 
CMP 
BCS 
ADC 
SEC 
SBC 
RTS 

I  BERECHNET  ABS.  ADRESSEN  BEI  BRANCHES 
OFFSET  LDA  C0D2 

BMI  BMINUS 
CLC 

ADC  »2 
ADC  TMP*4 
STA  TMP1 
LDA  TNP*3 
ADC  »O 
JSR  PRBYTE 
LDA  TMP1 
JSR  PRBYTE 
RTS 

IBRANCH  RUECK 
BMINUS  EOR  »255 
SEC 

SBC  »1 
STA  TMP 
LDA  TMP»4 
SBC  TMP 
STA  TMP1 
LDA  TMP*3 
SBC  »O 
JSR  PRBYTE 
LDA  TMPl 
JSR  PRBYTE 
RTS 

ILAENGE  OPCODE 

I  BERECHNET  BEFEHLSLAENGE  (1,2  OD.  3  BYTES) 

l OPCODE  IN  AKKU  UFBFRGEBEN 

I  IM  Y-REG.  STEHT  DANN  BEFEHLSLAENGE 
LAENOE  LDY  »1 


•  ENDE  OFFSET 


LOOl 

L002 

LOOS 

DISAS 


CMP 

BEQ 

AND 

BEQ 

AND 

CMP 

BEQ 

CMP 

BEQ 

AND 

CMP 

BEQ 

AND 

BEQ 

INY 

INY 

RTS 

STY 

STX 

LDX 

LDA 

STA 

DEX 

BNE 


»*20 

LOOl 

»S9F 

L003 

»P1F 

»9 

L002 

M*19 

LOOl 

»*0D 

»8 

L003 


OL  DY 
OLDX 
»20 


•  REGISTER  RETTEN 


SCREEN* 120, X  IZEILE  FUER  DISAS.  LOESCHEN 


CLE 1 

|PC  L/H  IN  TMP *4  /  TMP-3 
I  BELEGT  'RAM*  POINTER  ZUM  LESEN 
LDA  TMP*4 
STA  PP0IN1 ♦ 1 
STA  TMP*6 
LDA  TMP*3 
STA  PPOINl *2 
STA  TMP*5 


Ausgabe  12/ Dezember  1984 

64er-online.de 

64er-online.net 


F 
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1200 
1200 
1200 
1200 
1210 
1210 
1210 
1210 
1220 
1220 
1220 
1230 
1230 
1230 
1240 
1240 
1  2SO 
1250 
1260 
1260 
1270 
1270 
1270 
1270 
1270 
1270 
1280 
1280 
1280 
1280 
1290 
1290 
1290 
1290 
1300 
1300 
1300 
1300 
1310 
1310 
1320 
1320 
1320: 

1320: 
1320: 
1320: 
1330: 
1330: 
1330: 
1330: 
1330: 
1330: 
134  0: 
1340: 
1340: 
1340: 
1340: 
1340: 
1350: 
1350: 
1350: 
1360: 
1360: 
1360: 
1360: 
1370: 
1370: 
1370: 

1390: 

1390: 

1390: 

1390: 

1400: 

1400: 

1400: 

1410: 

1410: 

1410: 

1420: 

1420! 

1420: 

1420: 

1430: 

1430: 

1430: 

1440: 

1440: 

1440: 

1450: 

1450: 

1450: 

1450: 

1460: 

1460: 

1480: 

1480: 

1480: 

1490: 

1490: 

1490: 

1500: 

1300: 

1510: 

i3io: 

L5io: 

1510: 

lsio: 

1520: 

1520: 

1520! 

1520: 

1530: 

1330: 

1530: 

1530: 

1530: 


C296  EE 
C2S>9  AD 
C29C  8D 
C29F  DO 
C2A1  EE 
C2A4  AD 
C2A7  8D 
C2AA  EE 
C2AD  AD 
C2B0  8D 
C2B3  DO 
C2B5  EE 
C2B8  AD 
C2BB  8D 
C2BE  AD 
C2C1  8D 
C2C4  AD 
C2C7  8D 
C2CA  AD 
C2CD  8D 
C2D0  AD 
C2D3  20 
C2D6  98 
C2D7  8D 
C2DA  AA 
C2DB  AO 
C2DD  AD 
C2E0  20 
C2E3  20 
C2E6  CA 
C2E7  FO 
C2E9  AD 
C2EC  20 
C2EF  20 
C2FZ  CA 
C2F3  FO 
C2F5  AD 
C2F8  20 
C2FB  AO 
C2FD  AD 
C300  18 
C30 1  A9 
C303  OD 
C306  AD 
C309  6D 
C30C  90 
C30E  EE 
C311  18 
C312  6D 
C315  90 
C3L7  EE 
C31A  8D 
C31D  AD 
C320  8D 
C323  A2 
C325  BD 
C328  20 
C32B  E8 
C32C  EO 
C32E  DO 
C330  20 
C333  AD 
C336  C9 
C338  10 
C33A  4C 
C33D  AE 
C340  BD 
C343  AA 

C344  EO 
C346  30 
C348  A9 

C34A  20 
C34D  EO 
C34F  DO 
C351  A9 
C333  20 
C356  A9 
C358  20 
C35B  EO 

C3SD  10 

C35F  20 
C362  4C 
C365  AD 
C368  C9 
C36A  FO 
C36C  AD 
C36F  20 
C372  4C 
C375  AD 
C378  20 
C37B  AD 
C37E  20 
C381  EO 
C383  30 

C385  DO 
C387  A9 
C389  20 
C38C  A9 
C30E  20 
C391  4C 
C394  EO 
CZ96  DO 
C398  A9 
C39A  20 
C39D  A9 
C39F  20 
C3A2  4C 
C3A5  EO 
C3A7  DO 
C3A9  A9 
C3AB  20 
C3AE  A9 
C3B0  20 
C3B3  A9 
C3B5  20 
C3B8  4C 


C5  C2 
03 

7E  C4 
7E  C4  LOOS 
C6  C2 
7F  C4 
7F  C4 
CB  C2 
03 

7E  C4 
7E  C4  LO06 
CC  C2 

00  CO  PPOIML 

83  C4 

00  CO  PP0IN2 

84  C4 

00  CO  PP0IN3 

85  C4 

83  C4 

53  C2 

86  C4 


83  C4 
OE  CI 

2A  CI 


04  C4 

OE  CI 

2A  CI 


85  C4 
OE  CI 


83  C4 
83  C4 


83  C4 

03 

79  C4 

26  C3  L009 
79  C4 

27  C3 
00 

00  CO  OPP 
2C  CI 


CE  C3 

83  C4  C0DE2 
00  C8 


INC 

LDA 

STA 

BNE 

INC 

LDA 

STA 

INC 

LDA 

STA 

BNE 

INC 

LUA 

STA 

LDA 

STA 

LDA 

STA 

LDA 

STA 

LDA 

JSR 

TYA 

STA 

TAX 

LDY 

LDA 

JSR 

JSR 

DEX 

BEO 

LDA 

JSR 

JSR 


TMP  *6 

TMP*6 

PP0IN2*1 

L005 

TMP  +  5 

TMP+5 

PP0IN2+2 
TMP  +  6 
TMP  +  6 
PPQIN3+ 1 
L006 
TMP+5 
TMP +5 
PPOIN3+2 

«cooo 

CODI  *,  LIEST  OPCODES 

SCOOO 

C0D2 

SCOOO 

C0D3 

CODI 

LAENGE 


CODEL 

8120 

CODI 

PRBYTE 

SPACE 

L007 

C0D2 

PRBYTE 

SPACE 


; BYTES  AB  PC  ALSGEBEN 


16  C2 
CE  C3 
86  C4 
03 
09 

84  C4 
OE  CI 
81  C3 

85  C4 
OE  CI 
84  C4 
OE  CI 
04 
49 


L0013 
l  *.X* 


BEO 
LDA 
JSR 
LDY 
LDA 
CLC 
LDA 
STA 
LDA 
ADC 
BCC 
INC 
CLC 
ADC 
BCC 
INC 
STA 
LDA 
STA 
LDX 
LDA 
JSR 
INX 
CPX 
BNE 
JSR 
LDA 
CUP 
BPL 
JMP 
LDX 
LDA 
TAX 

•*’  OD. * ( 
CPX  86 
BMI  LOO 
LDA 
JSR 
CPX 
BNE 
LDA 

JSR 
LDA 
JSR 
CPX 
BPL 
JSR 
JMP 
LDA 
CMP 
BEQ 
LDA 
JSR 
JMP 
LDA 
JSR 
LDA 
JSR 
CPX 
BMI 


LOO? 

C0D3 

PRBYTE 

«129 

CODI 


CODI 

CODI 

L008 

TMP 

CODI 

L009 

TMP 

OPP+1 

TMP 

OPP  +  2 


OPP 

SPACE 

CODEL 

»2 

C0DE2 

ENDAS 

CODI 

TADR.X 


; GIBT  OPCODE  <3  BUCHSTABEN)  AUS 


; POINTER  BELEGEN 


m  TA 


JADRESS.  FESTSTELLEN 


8“  (  ' 


OFFSET 

ENDAS 

CODEL 

«3 

C0DL3 

C0D2 

PRBYTE 

L0013 

C0D3 

PRBYTE 

C0D2 

PRBYTE 

84 


5  OPERANDEN  AUSGEBEN 


2C  CI 
CE  C3 


2C  CI 
CE  C3 


ENDAS 
*  > Y* , * ,X> * , ’ )  ,1 
BNE  LOO 14 
LDA  «',• 

JSR  PRIZEI 
LDA  8-X- 

J  SR  PRI2EI 
JMP  ENDAS 
CPX  «5 
DNC  L0015 

LDA 
JSR 
LDA 
JSR 
JMP 
CPX 
BNE 
LDA 
JSR 
LDA 
JSR 
LDA 
JSR 
JMP 


AUSGEBEN 


PRIZEI 
8  "  Y  " 
PRIZEI 
ENDAS 
«6 


PRIZEI 

ENDAS 


15*»0: 

isao: 

1550: 

1550: 

1550: 

1550: 

1560: 

1560: 

1570: 

1570: 

1570: 

1580: 

1580: 

1580: 

iseo: 

1600: 

1600: 

1600: 

1600: 

1600: 

1610: 

1610: 

löio: 

i6io: 

1610: 

1620: 

1620: 

1630: 

1630*. 

1630: 

1630: 

1640: 

1640: 

1640; 

1650: 

1650: 

1650: 

1650: 

1660: 

1660: 

1660: 

1670: 

1670: 

1680: 

1680: 

1690: 

1690: 

1690: 

1690: 

1700: 

1700: 

1700: 

1710: 

1710: 

1720: 


C3BB 

C3BD 

C3C0 
C3C2 
C3C4 
C3C6 
C3C9 
C3CB 
C3CE 
C3D1 
C3D4 
C3D5 
L*  SUS 
C3DA 
C3DD 

C3DF 

C3E2 

C3E5 

C3E6 

C3E7 

C3EA 

C3ED 

C3EE 

C3EF 

C3F2 

C3F5 

C3F8 

C3FB 

C3FE 

C401 

C404 

C407 

C40A 

C40C 

C40E 

C411 

C412 

C414 

C417 

C41A 

C41C 

C422 

C425 

C427 

C429 

C42C 

C42D 

C42F 

C432 

C435 

C437 

C43A 

C43D 

C440 


1730:  C44 1 


1820: 

1830: 

1840: 

1850: 

1860: 

1870: 

1880: 

1090: 

1900: 

1910: 

1920: 

1930: 

1940: 

1950: 

I960: 

1970: 

1980: 

1990: 

2000: 

2010: 

2020: 

2030: 

2040: 

2050: 

2060: 

2070: 

2080: 

2090: 

2100: 

2120: 

2130: 

2140: 

2150: 

2160: 

2170: 

2100: 

2190: 

2200: 

2210*. 

2220: 

2230: 

2240: 

2250: 

2260: 

2270: 

2280: 

2290: 

2300: 


A9  29  L0O16  LDA  8" t - 

20  2C  CI  JSR  PRIZEI 

EO  08  CPX  «8 

FO  OA  BEQ  ENDAS 

A9  2C  LDA  8-, - 

20  2C  CI  JSR  PRIZEI 

A9  59  LDA  8"Y" 

20  2C  CI  JSR  PRIZEI 

AC  81  C4  ENDAS  LDY  OLDY  • REG.  HOLEN 

AE  82  C4  LDX  OLDX 

RTS  5  ENDE  DISAS 

READPC  LDY  «120 

JSK  S I  ART  t  DIS. ZEILE  EC 

JSR  REVERSE 
LDY  8120 

{LIEST  BYTES  UND  SPEICHERT  IN  RAM 
JSR  BYT 
CODI 


60 


20  F6 
8D  83 


20  F6  CI 

8D  84  C4 

C8 

C8 

20  Fö  CI 

8D  85  C4 
AD  7D  C4 
QD  05  C* 

AD  7C  C4 
8D  06  C4 
AD  83  C4 
8D  00  CO  PREAD1 
AC  86  C4 
CO  02 

30  32 
AD  7D  C4 
18 

69  01 

8D  23  C4 

AD  7C  C4 

69  00 

8D  24  C4 

A n  A4  C.4 

8D  00  CO  PREAD2 

CO  03 

30  17 

AD  7D  C4 


69  02 
8D  3E 
AD  7C 
69  00 
QD  3F 
AD  85 
8D  00 


60 

20  50 
30  31 
00  OO 


1760:  C480 

1770:  C481 

1780*.  C482 

1790:  C433 

1790:  C484 

1790:  C485 

1800:  C486 

1800:  C487 

1810:  C500 


C4 

C4 

CO  PREAD3 
EREAD 
43  TEXT 
32  HEX 
00  TMP 
TMP  1 
OLDY 
OLDX 

CODI 

C0D2 

C0D3 

CODEL 

DISON 


STA 

INY 

INY 

JSR 

STA 

INY 

INY 

JSR 

STA 

LDA 

STA 

LDA 

STA 

LDA 

STA 

LDY 

CPY 

BMI 

LDA 

CLC 

ADC 

STA 

LDA 

ADC 

STA 

LDA 

STA 

CPY 

BMI 

LDA 

CLC 

ADC 

STA 

LDA 
ADC 
STA 
LDA 
STA 
RTS 
.  ASC 
.  ASC 


BYT 

C0D3 

TMP  +  4 

PRFAD1 ♦ I 

TMP+3 

PREAD1+2 

CODI 

SCOOO 

CODEL 

«2 


PREAD2+ 1 

TMP+3 

«0 

PREAD2+2 

C0D2 

»COOO 


EREAD 
TMP  +  4 


PREAD3+ 
TMP  +  3 
«0 


PREAD3+2 
C0D3 
*COOO 

{ALLE  BYTES  GELESEN.  ENDE  READPC 
-  PC  SP  YR  XR  AC  NV-BD3ZC  76543210 
-0123456789ABCDEF- 
.BYT  O, 0,0,0, 0,0, O  {ARBEITSVARIABLEN 
.BYT  0 
.BYT  0 
.BYT  0 
.BYT  0 
.BYT  0 
.BYT  0 
.BYT  0 
.BYT  0 


C500 

C521 

C53C 

C557 

C572 

C58D 

C5A8 

C5C3 

C3DE 

C5F9 

C614 

C62F 

C64A 

C665 

C680 

C69B 

C6B6 

C6D 1 
C6EC 
C707 
C722 
C73D 
C?58 
C773 
C78E 
C7A9 
C7C4 
C7DF 
C7FA 

C800 

caoc 

C81A 

C828 

C936 

C844 

C052 

C860 

C86E 

CB7D 

C88B 

C899 

C0A7 

C8B5 

C8C3 

C8D1 

C8DF 

C8ED 

C8FB 


42  52 
3F  3F 
3F  3F 
4F  52 

52  4F 
3F  3F 

53  45 
45  4F 
4C  53 
3F  3F 
3F  3F 
41  44 

52  4F 
3F  3F 
3F  3F 
3F  3F 
3F  3F 
3F  3F 
4C  44 
4C  44 
4C  44 
3F  3F 
49  4E 

43  4D 
3F  3F 
3F  3F 
43  50 

53  42 
49  4E 


*c  TST  ART 

iTAB.  OPCOCES  (L-BYTE  TSTART  MUSS  0  SEIN) 

. ASC  “ BRK0RA??7??????0RAASL???PHP0RAASL“ 

. ASC  “ ??????0RAASL???BPL0RA??????- 
. ASC  -???0RAASL???CLC0RA?????????- 
.ASC  -0RAASL???JSRAND??????B1TAND“ 

.ASC  "ROL’77PLPANDROL?7?BITANDROLM 
. ASC  " 77? BMI AND ????????? ANEROL???" 

. ASC  "SECAND?????????ANDROL???RTI - 
. ASC  "E0R777777777E0RLSR777PHAE0R" 

.  ASC  "LSR777JMPEORLSR777BVCEOR77?" 

. ASC  " ??????EORLSR???CL I E0R77????  M 
.ASC  “??7E0RLSR???RTSADC?????????" 

.  ASC  “  ADCR0R??7PLAADCR0R77?JMPADC,, 

.ASC  "R0R?7?BVSADC?????????ADCR0R " 

.ASC  "777SE I ADC ????????? ADCROR??? " 

. ASC  " ???STA??????ST YSTASTX777DEY " 

.ASC  “???TXA???STYSTASTX???BCCSTA” 

. ASC  “ ??????STYST ASTX???TYAST  ATXS" 

. ASC  •??????STA??????LDYLDALDX?7?" 

. ASC  " LDYLDALDX777TAYLDAT  AX777LDY “ 

. ASC  "LDALDX???BCSLDA??9???LDYLDA" 

. ASC  -LDX777CLVLDATSX779LDYLDALDX- 
.  ASC  ■’’?9CPYCMP7?7?79CPYCMPDEC97?- 
.  ASC  -  INYCMPDEX?7?CPYCMPDEC->9->BNE  " 

. ASC  -CMP9????????CMPDEC?9?CLDCMP- 
.  ASC  ■  77777?  7?7C  MP  DEC  7°,CPXSBC‘,9?» 

.  ASC  -9‘9-^cPXSBC  INC?7?INXSBCN0P’’9-»- 

.  ASC  -CPXSBC  INC???BEQSBC'’?''*>????9" 

. ASC  " SBC INC9?7SEDSBC??9??,??°SBC - 
•ASC  " INC 77?" 

{TABELLE  ADRESSIERUNG  «KEINE  STANDARDWERTE  NUR  FUER  DISAS 


01  06  01  TADR 


01  03 
01  01 
01  06 
03  01 
04  04 
01  03 
05  01 
01  01 
04  05 
01  03 
07  01 
01  02 
03  03 
01  01 


.BYT  1,6, 1, l, 1,3,3, l, 1,2,  1,1 
.BYT  1 , 3, 3, 1 ,0,7, 1 , 1 , 1 ,4,4, 1 , 1,9 
.BYT  1,1,1, 4, 4,1,3, 6,1, 1,3,3, 3,1 
.BYT  1,2, 1,1, 3, 3, 3, 1,0, 7, 1,1, 1,4 
.BYT  4,1,1, 9, 1,1,1, 4, 4,  1,1, 6, 1,1 

.BYT  1,3,3, 1,1,2, 1,1, 3, 3, 3, 1,0, 7 
.BYT  l , 1 , 1 ,4,4, l , 1 ,5, 1 , 1 , 1,4 ,4, 1 
.BYT  1,6, 1.1, 1,3, 3, 1,1, 2, 1,1. 8, 3 
. BYT  3, 1,0, 7, 1,1, 1,4, 4, 1,1,5, 1,1, 
.BYT  4,4, 1, 1,6,1 , 1,3, 3, 3,1,1 , 1, 1 
.BYT  1,3, 3, 3, 1,0, 7, 1,1, 4, 4, 5, 1,1 
.BYT  5, 1, 1, 1,4,1 , 1,2, 6,2, 1,3, 3, 3 
.BYT  1, 1,2, 1,1, 3,3,3, 1, 0,7,1  , 1,4 
.BYT  4,5, 1 , l ,5, 1 , 1 .4.4.3, 1,2,6, 1 
.BYT  1, 3, 3. 3, 1,1 ,2. 1, 1. 3,3,3, 1,0 
-BYT  7, 1 , 1 ,  1,4,4 , 1 ,  1 ,5,  1 ,  1,1  ,4, 4 
.BYT  1,2, 6, 1,1,3, 3, 3,1, 1,2, 1,1, 3 
.BYT  3,3, 1,0,7, 1 , 1, 1,4,4,  1,1 .5, 1 
.BYT  1, 1,4,4, 1 
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C  64/VC  20 


Maschinen¬ 
programme 
auf  Tasten¬ 
druck 

Mit  einer  kleinen  Routine  kann  man 
ein  Maschinenprogramm  mit  einem 
Tastendruck  aufrufen.  Dafür  benutzt 
man  ein  Zeichen,  das  normalerweise 
nicht  oder  nur  selten  verwendet  wird. 
Ich  habe  mich  für  das  @-Zeichen  ent¬ 
schieden. 

Im  Interpreter  existiert  eine  Schleife,  die  einen  Basic-Befehl 
holt  und  ausführt. 


A7E1 

JMP 

(0308) 

;  zeigt  normalerweise  auf  A7E4 

A7E4 

JSR 

0073 

;  nächstes  Zeichen  aus  Basic-Text  holen 

A7E7 

JSR 

A7ED 

;  Statement  ausführen 

A7EA 

JMP 

A7AE 

:  zurück  zur  Interpreterschleife 

In  den  Speicherzellen  0308  und  0309  (776  und  777  dez) 
liegt  ein  Zeiger,  der  normalerweise  auf  den  Beginn  dieser 
Schleife  zeigt.  Verbiegt  man  nun  den  Zeiger  auf  eine  eigene 
Routine,  kann  man  den  Basic-Befehl  auf  das  eigene  Zeichen 
überprüfen. 

Wird  es  erkannt,  springt  man  auf  den  Anfang  des  gewünsch¬ 
ten  Unterprogramms.  Wurde  das  Zeichen  nicht  vorgefunden, 
macht  man  in  der  Schleife  normal  weiter. 

Dieses  Verfahren  verwende  ich  bei  der  Programmierhilfe 
»Merge«  aus  Ausgabe  4/84,  die  normalerweise  mit  SYS 
50000  gestartet  werden  muß.  Es  kann  aber  auch  für  andere 
Maschinenprogramme  umgeschrieben  werden. 

»Merge«  belegt  den  Speicherbereich  50000  bis  50264. 
Die  eigene  Routine  beginnt  auf  Adresse  49152  (C000  hex). 
Der  Wert  in  den  Adressen  0308  und  0309  muß  deshalb  auf 
C000  abgeändert  werden.  Der  Computer  durchläuft  dann  vor 
jedem  Befehl,  den  er  ausführen  soll,  folgende  Schleife: 


COOO 

JSR 

0073 

;  nächstes  Zeichen  holen 

C003 

CMP 

40 

;  Vergleich  mit  @-Zeichen 

C005 

BEQ 

;  verzweigen  wenn  erkannt 

C007 

JSR 

0079 

;  Flags  setzen 

COOA 

JMP 

A7E7 

; Rücksprung 

COOD 

JSR 

0073 

;  nächstes  Zeichen  holen 

C010 

JSR 

C350 

;  zur  eigenen  Routine 

C013 

JMP 

A7AE 

;  Rücksprung 

Nach  dem  Drücken  von  @  und  RETURN  wird  nun  das  Pro¬ 
gramm  ab  Adresse  50000  (C350  Hex)  ausgeführt.  Auf  die  an¬ 
deren  Befehle  hat  diese  Routine  keinen  Einfluß.  Eine  Hürde 
gibt  es  noch  zu  meistern.  Die  Änderung  der  Adressen  0308 
und  0309  ist  auf  der  Basic-Ebene  mit  POKE  nicht  möglich. 
Dies  ist  auch  verständlich,  da  POKE  auch  ein  Basic-Befehl  ist 
und  durch  die  Änderung  der  ersten  Adresse  der  Einsprung 
verändert  wird. 

Deshalb  muß  diese  Adreßänderung  in  Maschinensprache 


durchgeführt  werden. 

C100 

LDA 

00 

;  Lade  Akku  mit  00 

C102 

STA 

0308 

;  Speichere  Akku  nach  0308 

C105 

LDA 

CO 

;  Lade  Akku  mit  CO 

80  ÜÖfäj* 


C107  STA  0309  ;  Speichere  Akku  nach  0309 

C10A  RTS  ;  Rückkehr  nach  Basic 


Basic-Lader 

für  Befehlserweiterung 

240 

FOR  1=  49152  TO  49152  +  21 

250 

READ  Q  :  POKE  1,  Q 

260 

NEXT 

300 

FOR  1  =  49408  TO  49408  +  10 

310 

READ  Q  :  POKE  1.  Q 

320 

NEXT  :  SYS  49408 

11000 

DATA  32,115,0,201,64,240,6,32,121 

12000 

DATA  0,76.231,167,32,115,0,32.80 

13000 

DATA  195,76,174,167 

14000 

DATA  169,0,141,8,3,169.192,141,9,3,96 

Diesen  Basic-Lader  tippt  man  hinter  das  Programm  »Merge« 
und  speichert  es  gemeinsam  ab. 

Die  Zeilennummern  sind  so  gewählt,  daß  man  sie  direkt  zum 
Basic-Lader  von  »Merge«  dazutippen  kann.  In  Zeile  10260 
müssen  aber  dann  die  letzten  fünf  Nullen  gelöscht  werden. 

Mit  SYS  49408  wird  die  Befehlserweiterung  aktiviert  und 
steht  dann  zur  Benutzung  bereit. 

(Patrik  Fleig/rg) 


Fast  Tape  — 
die  schnelle 


Dieses  Programm  für  den  VC  20  er¬ 
möglicht  Ihnen  einen  zehnmal  schnel¬ 
leren  Lade-  und  Abspeichervorgang, 
das  lange  Warten  bei  16-  oder  8-KByte- 
Programmen  hat  nun  ein  Ende. 

Das  Maschinenprogramm  benötigt  etwa  750  Byte  Ihres 
Basic-Speichers,  was  aber  bei  einer  16-KByte-Erweiterung 
nicht  viel  ausmacht.  Das  Programm  läuft  auch  auf  der  Grund¬ 
version,  doch  ist  es  dann  nicht  so  rentabel,  weil  es  zu  lange 
dauert,  bis  man  Fast  Tape  geladen  hat,  und  außerdem  sind  die 
Ladezeiten  bei  Programmen  für  die  Grundversion  noch  erträg¬ 
lich.  Aufgerufen  wird  Fast  Tape  mit  »!L«  zum  Laden  eines  Pro¬ 
gramms  und  mit  »!S«  zum  Abspeichern. 

Auf  die  Ausgabe  von  »Loading«  während  des  Ladevorgangs 
sowie  »Saving«  während  des  Abspeicherns  wurde  verzichtet. 
Ebenfalls  muß  auf  den  Befehl  »VERIFY«  und  das  schnelle  La¬ 
den/Abspeichern  von  Daten-Files  verzichtet  werden.  »Fast  Ta¬ 
pe«  liegt  als  Basic-Lader  vor. 

Das  Eintippen  der  DATAs  erfordert  sehr  viel  Sorgfalt.  Spei¬ 
chern  Sie  das  Programm  auf  jeden  Fall  ab,  bevor  Sie  es  starten, 
denn  es  löscht  sich  selbständig.  Auf  gröbere  Fehler  in  den  DA¬ 
TAs  macht  Sie  das  Programm  selbst  aufmerksam. 

(Thomas  Kolbe/ev) 


1  REM**FAST  TAPE** 

2  REM*BY  THOMAS  * 

3  REM*  KOLBE  * 

4  REM************* 

5  P0KE56  ,  PEEK  (56)  -3:  A7.=PEEK  ( 56)  :  P0K.E52 ,  A 

■■  ■  i 
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7. :  P0KE5 1 ,  (25 :  P0KE55 , 13 :  AS=256*A7. :  A=0 
iE  DATA32, 1 15 , 0 , 32 , 209 , 225 , 160 , 0 , 196, 183 
,243.8,177, 187,153,66,3,200,208 

11  DATA244, 169,0, 153,66,3,200, 192, 16, 144 
,246,165, 105, 141 ,65,3, 165,43, 141 ,61 

12  DATA3, 165,44, 141,62,3, 165,45, 141,63,3 
, 165 ,46,141, 64 ,3 , 169 , 255, 141 ,60,3 

13  DAT A32 , 77 , 248 , 1 34 , 172,132, 173, 169,132 
, 133,174,169,3,133,175,160, 1,132,186 

14  DATA32, 251 ,27, 165,43, 133, 172, 165,44, 1 
33, 173,165,45,133,174,165,46,133, 175 

15  DATA 160, 1 , 132, 1B6, 76, 251 ,27,32, 1 15,0, 
32,209,225,160,1 , 132, 186,32,77,243 

16  DATA134, 172, 132, 173,169, 132, 133, 174, 1 
69,3,133,175,32,65,28,173,60,3,201 

17  DATA255, 208, 227, 160,99,32,230,241 , 160 
,0,185,66,3,32,210,255,200, 192, 16 

18  DATA20B , 245 , 160,0, 196, 183,240, 10,177, 
187,217,66,3,208,196,200,208,242, 173 

19  DATA65 ,3,201 ,0,240,21,234,234, 162,0,1 
89,61 ,3,149, 172,232,224,4,208,246 

20  DATA 160, 1,132,136,76,65,28,165,43,133 
,172,165,44,133,173,160,1,132,186 

21  DATA 173, 63, 3, 56, 237, 61 ,3,133,45, 173,6 
4,3,237,62,3,133,46,24,165,45,101 

22  DATA43, 133, 174, 133,45, 165,46,101,44,1 
33, 175,133,46,76,65,28,32,183,248 

23  DATA32, 160,28, 169,2,32,179,28,136, 192 
,9,208,246,152,32,179,28, 162,8,136 

24  DAT A208 , 247 , 132,215,177,172,32, 181,28 
, 162,5,230,172,208,4,230, 173,202,202 

25  DATA165, 172, 197,174,165,173,229,175,1 

44.231.184.165.215.32.181.28.162.9 

26  DAT A 136 , 208 , 246 , 200 , 132 , 192,88 ,76,8,2 
53,32, 14e, 248, 32, 160,28,132,215, 169 

27  DATA39, 141 ,40, 145, 162, 1 ,32, 247, 28, 3e, 
189,165,189,201 ,2,208,245,160,9,32 

28  DATA231 ,28,201 ,2,240,249, 196, 189,208, 
232,32,231,28,136,208,246,145,172 

29  DATA69, 215, 133,215,32,231 ,28,230, 172, 

203.2.230.173.165.172.197.174.165 

30  DATA 173, 229, 175, 165, 189, 144,229,32, 16 

4.28.32.53.28. 165.189.69.215.240.10 

31  DATA 165, 175,234,201 ,3,240,3,76, 156,22 
5,96,201 ,3,240,12,160,0,132,192,202 

32  DAT A208, 253, 136,208,250, 120,96, 104, 10 
4,96,162,9,133,189,69,215,133,215 

33  DAT Al 69, 8, 133, 163,234,6,189, 173,32, 14 
5,41 ,247,32,217,28,162,19,184,9,8 

34  DAT A32 , 217 , 28 , 162,16,198,163,208,232, 
96,202,208,253, 144,5,162,1 1,202,203 

35  DATA253, 141 ,32,145,96,169,8, 133,163,3 

2.247.28.38.189.198.163.208.247. 165 

36  DATA189 , 96 , 169,2,44,45, 145,240,251 , 17 

3.45.145.142.41.145.44.33.145.10.10 

37  DATAlß, 96, 169,22, 141,8,3,169,29,141,9 
,3,96,32,115,0, 240 ,4,201,33,240,3 

38  DATA76 , 231 , 199,32,115,0,201,76,240, 13 
,201,83,208,6 

39  DAT  A32 , 0,27 ,76,1 74, 199,76,8,207,32, 10 
5,27,173,65,3,201 ,0,240,3,76,174,199 

40  DATA 169, 118.160, 195,32,30,203,76,42,1 
97,-1 

100  READB: IFB>-1THENP0KEAS+A,B: S=S+B:  A=A 
+1: GOTO 100 

110  IFS073742THENPR  INT  "DATA  ERROR"  :  END 
120  POKEAS+Bl  ,  A7.:  PQKEAS+104,  A7.:  POKEAS+13 
2  ,  A7.+ 1 :  POKEfiS+20 1  ,  A7.+ 1 

1 30  POK.EAS+250  ,  A7.+ 1 :  POKEAS+256 ,  A7.+ 1 :  POKE 
A5+26 1  ,  A7.+ 1 :  POKEAS+270  ,  A7.+  1 
1 4S  FQKEAB+282  ,  A7.+ 1 :  POKEAS+30B ,  A7.+ 1 :  POKE 


AS+326  ,  A7.+ 1 :  P0KEAB+33S ,  A7.+ 1 

1  50  POKEAS+35 1  ,  A7.+ 1 :  POKEAS+362  ,  A7.+ 1 :  POKE 

AS+374  ,  A71+ 1 :  POKEAS+395  ,  AX+ 1 

1 60  POKE AS+ 398 ,  A7.+ 1 :  POKEAS+457 ,  A7.+ 1 :  POKE 

AS+465  ,  A7.+  1 :  PQKEA5+493  ,  A7.+ 1 

170  POKEAS+529 ,  A/l+2 :  POKEAS+559 ,  A7. :  POKEAS 

+563,  A7. 

180  SYS ( AS+523) 

190  NEW 

Listing  »Fast  Tape«  (Basic-Lader) 

READY . 


Zeile 

Operation 

5 

Setzt  Basic-Ende  um  768  Bytes  nach  unten 

10-40 

DATAs  der  Maschinensprache 

100 

Einleseroutine 

110 

Vergleich,  ob  alle  DATAs  korrekt  eingetippt  worden 
sind 

120-170 

Anpassung  der  Maschinensprache  an  den  Adreßbe- 
reich 

180 

FAST  TAPE  einschalten 

190 

Programm  löschen 

or 


Tabelle  zum  Programmablauf 


Master  Mind 
als  Vierzeiler 

Als  Nebenprodukt  meiner  Einzeilerbemühungen  entstand 
dieses  Programm:  Bei  Master  Mind  geht  es  darum,  eine  Zahl, 
die  sich  der  Computer  »denkt«,  zu  erraten.  Am  Anfang  gibt  man 
die  Stellenzahl  der  zu  erratenden  Zahl  ein,  sie  darf  maximal 
acht  sein  (man  hat  aber  schon  mit  drei  oder  vier  genug  zu  kno¬ 
beln).  In  der  ersten  Spalte  muß  man  nun  jeweils  eine  Zahl  ein¬ 
geben,  der  Computer  zeigt  in  den  folgenden  drei  Spalten  an: 

1.  Anzahl  der  richtigen  Ziffern  an  der  richtigen  Stelle 

2.  Anzahl  der  richtigen  Ziffern  an  der  falschen  Stelle 

3.  Anzahl  der  Versuche 

Beispiel  eines  Spiels: 


Stellen?  4 
?  1123 
?  4456 
?  7789 
?  8989 
7  7979 
7  7187 


Es  geht  natürlich  darum,  die  Zahl  mit  möglichst  wenig  Versu¬ 
chen  zu  erraten.  Hier  noch  die  Tabelle  der  Variablen: 


S: 

Anzahl  der  Stellen 

E.E(): 

Eingabe,  Ziffern  der  Eingabe 

L(): 

Ziffern  der  Lösung 

B(),C(): 

Belegungsvektoren  für  E  bzw.  L 

R: 

Richtige  Ziffern  an  der  richtigen  Stelle 

F: 

Alle  richtigen  Ziffern 

V: 

Versuche 

B,I,J: 

Hilfs-  und  Laufvariablen 

(Hans  Haberl/'aa) 


1  lNPUT"rWSTELLEN";S:E=INTtl0T5*RND<0> ) : G0SUB2:F0RI  =  lT0Bi L  <  I  >  CTE  ( 1  >  : NEXT : G0T03 

2  FORI* 1T0S: E  < I ) =E-10»INT (E/ 1 0) j E=INT <E/ 10) : C U > -0: B ( I > -0: R=R- <L < I > »E < 1 > >  ;  NEXT j R 
ETURN 

3  V-V+l: INPUTE: R*0:F*0: G0SUB2: FORI°l TOS: FORJ* lTOSt B= (L < J > »E< I ) ) ANDNOTE  ( I >  ANDNOTC 
(0) 

4  B ( I ) =B ( 1 ) +B: C  <J >  =C ( J>  +B: F=F-B: NEXTJ , I : PR INT "3" TAB ( 16) R"  "F-R"  " V: IFRCSTHEN3 
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Programmierter  Direktmodus 

Programmierter  Direktmodus  hört  sich  wie  ein  Widerspruch  in  sich  an. 
Entweder  man  befindet  sich  im  Direktmodus  oder  es  läuft  ein  Programm, 
beides  gleichzeitig  scheint  kaum  vereinbar.  Dennoch 
gibt  es  eine  Verbindung,  die  bisher  ungeahnte  Möglichkeiten  eröffnet. 


Das  Geheimnis  dieser  Verbindung  liegt  im  Tastaturpuffer  (Ta¬ 
belle  1)  und  dem  Umstand,  daß  der  Computer,  nachdem  er  im 
Programm  auf  eine  END-Anweisung  trifft,  so  viele  Zeichen  aus 
dem  Tastaturpuffer  holt,  wie  der  Anzahlspeicher  angibt  und  so¬ 
fort  ausführt.  Dies  kann  man  sich  zunutze  machen,  indem  man 
mittels  PRINT  eine  Anweisung  auf  den  Bildschirm  bringt,  den 
Cursor  veranlaßt,  in  diese  Zeile  zu  springen  und  den  Computer 
durch  ein  im  Puffer  abgelegtes  RETURN  mit  der  Abarbeitung 
der  eingegebenen  Bildschirmzeile  fortfahren  läßt.  Dabei  wer¬ 
den  alle  Zeichen  über  ihren  ASCII-Code  in  den  Puffer  ge¬ 
bracht.  Ein  kleines  Beispiel  soll  dieses  Vorgehen  verdeutli¬ 
chen: 

Geben  Sie  Beispiel  1  ein. 

Was  passiert? — Der  Computer  geht  nach  der  END-Anweisung 
in  den  Direktmodus  über  und  führt  die  beiden  Steuerzeichen 
CURSOR/HOME  und  RETURN  (CHR$(19  beziehungsweise 
13))  aus.  Der  Cursor  springt  also  in  die  erste  Bildschirmzeile, 
wo  zu  lesen  ist: 

<54€R  on 

1  =  1  +  1  :  GOTO  20 

Diese  Zeile  führt  der  Computer  nun  aus  und  springt,  nachdem 
er  die  Variabiel  um  1  hochgezählt  hat,  zurück  in  Programmzeile 
20.  Jetzt  hilft  nur  noch  RUN/STOP. 

Beispiel  2 

Dieses  Programm  bewirkt  folgendes: 

—  Zeile  100  wird  in  das  Programm  eingefügt 

—  Zeile  350  wird  aus  dem  Programm  gelöscht 

—  der  in  Zeile  70  stehende  Spruch  wird  durch  einen  —  meiner 
Meinung  nach  treffenderen  —  ersetzt 

—  das  geänderte  Programm  wird  gelistet. 

Anstelle  des  LIST-Befehles  könnte  auch  ein  GOTO  bezie¬ 
hungsweise  GOSUB-Befehl  wieder  in  das  Programm  zurück¬ 
springen.  Allerdings  ist  auch  hierzu  beachten,  daß,  sobald  man 
neue  Basic-Zeilen  einfügt  (beziehungsweise  löscht),  die  Varia¬ 
blenwerte  verloren  gehen. 

Mittels  dieser  Methode  kann  man  zum  Beispiel  ein  Pro¬ 
gramm  entwickeln,  das  die  DATA-Zeilen  eines  Sprites  berech¬ 
net,  ins  laufende  Programm  übernimmt  und  dann  die  restlichen 
Programmzeilen  herauslöscht,  so  daß  nur  ein  Sprite- 
Ladeprogramm  übrigbleibt,  welches  sofort  abgespeichert 
werden  kann.  Eine  weitere  sinnvolle  Anwendungsmöglichkeit 
des  »Programmierten  Direktmodus«  können  Sie  den  folgen¬ 
den  Ausführungen  entnehmen. 


System  Lademenü 


Das  System  soll  die  folgenden  Aufgaben  erfüllen: 

(1)  Mit  verschiedenen  Programmen  (eventuell  auf  verschiede¬ 


nen  Disketten)  arbeiten,  ohne  daß  ständig  LOAD  und  RUN  ge¬ 
geben  werden  muß. 

(2)  Den  ärgerlichen  »file  not  found  error«  verhindern,  der  be¬ 
reits  auftritt,  wenn  man  ein  Leerzeichen  zuviel  oder  zuwenig 
eingibt. 

(3)  Programmiertes  Aufrufen  von  Programmen  (eventuell  mit 
Parameterübergabe).  Arbeiten  mit  dem  Programmsystem  oh¬ 
ne  genaue  Kenntnis. der  verwendeten  Filenamen. 

Die  Idee 

Mit  Hilfe  des  Commodore-Programmes  DOS  5.1  und  der 
Methode  des  Programmierten  Direktmodus  kann  man  das 
oben  genannte  Ziel  erreichen.  Man  geht  dabei  folgenderma¬ 
ßen  vor: 

Auf  jede  Diskette,  die  nach  diesem  System  arbeiten  soll,  bringt 
man  das  Programm  DOS  5.1  sowie  dessen  Lader  unter  einem 
möglichst  kurzen  einprägsamen  Filenamen  (hier  »£«-Listing  1). 
Wei'  -'hin  kopiert  man  das  Programm  »Lademenü«  auf  jede  der 
Disketten  und  trägt  in  dieses  die  Filenamen  ein  (Listing  2).  Da¬ 
bei  ist  darauf  zu  achten,  daß  die  Filenamen  »£«  und  »Lademe¬ 
nü«  überall  exakt  gleich  sind. 

Der  Arbeitsablauf  gestaltet  sich  dann  in  folgender  Weise: 
Nach  dem  Einschalten  von  Computer  und  Floppy  legt  man  die 
gewünschte  Diskette  ein  und  lädt  »£«.  Dieses  Programm  initia¬ 
lisiert  nach  dem  Starten  die  bekannten  DOS  5.1 -Befehle.  Das 


Beispiel  1 
10  1=1 

20  PRINT'(shift-clr/home)(  6xCursor  down)T.  Lauf” 

30  FOR  J=0  TO  1500  :  NEXT 

40  PRINT”  (shift-clr/home)  1  =  1  +  1  :  GOTO  20” 

50  FOR  J  =  0  TO  1500  :  NEXT 

60  POKE  631,19  :  POKE  632,13  :  POKE  198,2  :  END 


Beispiel  2 

10  PRINT” (shift-clr/home)”; 

20  PRINT  100  "REM  ==  Zeile  100  wird  eingefügt  ==” 
30  PRINT  350 

40  PRINT'70  REM  Morgenstund  hat  Blei  im  Hintern” 

50  PRINT’LIST” 

60  POKE  631,19  :  FOR  1  =  1  TO  5  :  POKE  632  +  1,13  : 
NEXT 

65  POKE  198,6  :  END 

70  REM  Morgenstund  hat  Gold  im  Mund 

350  REM  =  =  Diese  Zeile  wird  gelöscht!  =  = 
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Tabelle  1 

Tastatuipuffer 
erweitert* 
Anzahlspeicher 
max.  Größe  des  Tastatur¬ 
puffers 


Speicherstelle  (n) 
dezimal  hex 

631  -  640  0277  -  0280 

631  -  645  0277  -  0285 

198  00C6 


649 


0289 


*  Anm.:  Obwohl  der  Tastaturpufler  normalerweise  nur  10  Zeichen  faßt,  können  insgesamt 
15  Zeichen  dort  abgelegt  werden. 


1  REM  =  PFEIL  NACH  OBEN 

2  REM  _  =  PFEIL  NACH  LINKS 

10  P0KE53281 ,  0 : POKE53280 ,  0: PRINTCHR$ < 1 
58 )  s  PR I NTCHRf (142) 

20  A=0  s  PR  I  NT  "  Li"  :  PR  I  NT  "  , - 


1SLADEMENUE" 

'■ - '  ”  :PRIN 

1  =  LISTE  DER  DOS  BE 

2  =BEI SPIELPROGRAMM" 

3  =*HIER  MUESSEN 

4  =*3IE  IHRE 

5  =*PROGRAMME  EIN- 

6  =*TRAGEN 

7  =* 

8  =* 

9  =* 


22  PRINT" 

25  PRINT" 

T : PRINT 

30  PRINT" 

FEHLE 

31  PRINT" 

32  PRINT" 

33  PRINT" 

34  PRINT" 

36  PRINT" 

37  PRINT" 

33  PRINT" 

39  PRINT" 

40  PRINT"  10  =  ENDE": PRINT 

1 00  I NPUT " I HRE  WAHL " ; A : ft= I NT ( A ) : I FA< 1 ORA 
>  1 0THENPR I  NT  "  Li"  :  GOTO20 

105  PR  INT  "Lj"  ; 

1 1 0  ONAGOTO300 ,111,112,113,114,115,116,1 
17,118,119, 

111  PRINT"-'- 

112  PRINT 

113  PRINT"" 

114  PRINT"' 

115  PRINT"' 

116  PRINT"" 

117  PRINT"-' 

118  PRINT"' 


BEISPIELPRG" 

PRG2" 

PRG3" 

PRG4" 

PRG4" 

PR65" 

PRG6" 

UND  SO  WEITER 

1 1 9  POKE 1 98 , 0 : PR I NT "CIAO": END 

120  POKE 198,0: END 

200  PGKE63 1,19: P0KE632 ,13: POKE 198,2: END 
300  PRINT:  PR IN.T" DER  DOS  MANAGER  BIETET 
CLGENDE  BEFEHLE : " : PR  I NT 

310  PRINT " ============================= 

PRINT 


GOTO200 

GOTO200 

GOTO200 

GOTO200 

GOTO200 

GOTO200 

GOTO200 

6OTG200 


320 

PRINT 

330 

PRINT 

340 

PRINT 

350 

PRINT 

360 

PRINT 

370 

PRINT 

380 

PRINT 

T  NUTZEN1. 

390 

PRINT 

=  SAVE 
/  =  LOAD 

=  LOAD  MIT  AUTOSTART 
@  =  ANZEIGEN  DISKSTATUS 
ß<r-  =  ANZEIGEN  DIREKTOR'/ 


" : FR I NT 

380  PR INT "DIESE  BEFEHLE  KOENNEN  SIE  JETZ 


": POKE 198,0 
395  PRINT:  PRINT:  PRINT"  3*T 

ASTE*  "  :  WA  IT  198 , 1 :  GETAt- :  GOTO20 
READY.  Listing  2.  »Lademenü« 


10  REM  =  PFEIL  NACH  OBEN 
20  POKE53280 ,0: P0KE53281 ,0: PRINTCHR* ( 158 
) 

30  I F A=0THENA= 1 : LOAD " DOS  5.1", 8,1 
40  IFA=1THENSYS1 2*4096+12*256 
50  PR  INT  "Li"  ;  ,,/'LADEMENUE" 

60  PGKE63 1,19s P0KE632 ,13: POKE 198,2: END 
READY. 

Listing  1.  »£« 


Of 


1  REM  =  PFEIL  NACH  OBEN 
100  REM  EE I SP I ELPRCGRAMM 
110  : 

120  BERNHARD  LAUER 
130  : 

140  PRINT"L" 

150  PR INT "AN  JEDES  LISTING  MUESSEN  SIE" 
160  PR  INT "DIE  ZEILE”: PRINT 
170  PR INT "PR INT  CHR$ ( 147) ; "CHR* (34) "ALAD 
EMENÜE " CHR* ( 34 ) " : POKE  631,19: " ; 

1S0  FR  INT "POKE  632 , 13: POKE 198,2: END" : PRI 
NT 

190  PR INT "ANSTELLE  DES  END  ANFUEGEN ! " 

200  PR  I NT : PRI NT : PR  I NT : PR  I NT 
210  PR  INT "13  **  TASTE  **" 

220  POKE  198 , 0: WAIT  198,1 

230  PR  I  NT  "  LI"  ;  "  '-LADEMENUE  "  :  P0KE63 1,19:  POK 

E632 ,13: POKE 1 9B , 2: END 

READY .  Listing  3.  »Beispielprogramm« 

ui 


RUN  für  »£«  soll  auch  gleichzeitig  das  letzte  sein,  da  nun  der 
DOS-Befehl » I «  zur  Verfügung  steht.  Mit  dessen  Hilfe  wird  das 
Lademenü  dieser  Disk  geladen  und  gestartet,  welches  die 
Programme  anbietet  und  automatisch  richtig  lädt  und  startet. 
Zusätzlich  bietet  das  Lademenü  auch  einen  Überblick  über  die 
wichtigsten  DOS-Befehle,  die  ja  nun  zur  Verfügung  stehen. 

Um  den  Kreis  zu  schließen  wird  an  jedes  Programm  auf  der 
Diskette  anstelle  des  üblichen  END  die  folgende  Zeile  einge¬ 
fügt: 

PRINT  CHR$(147);  »Lademenü«  POKE  631,19:POKE 
632,13:POKE  198,2:END 

Dadurch  wird  nach  jedem  regulären  Programmabbruch  wie¬ 
der  das  Lademenü  dieser,  oder  wenn  die  Diskette  vorher  ge¬ 
wechselt  wurde,  einer  beliebigen  anderen  Disk  geladen.  Nun 
wird  durch  das  Lademenü  das  nächste  ausgewählte  Pro¬ 
gramm  geladen  und  gestartet.  Will  man  Parameter  an  andere 
Programme  übergeben,  so  erreicht  man  dies  über  sequentiel¬ 
le  Dateien. 

Die  Lösung 

□  Listing  »£« 

□  Listing  »Lademenü« 

□  Listing  »Beispielprogramm« 

Ausblick 

Schreibt  man  noch  einen  Autostart  für  »£«  (eventuell  mittels 
des  Beispiels  in  Ausgabe  6/84)  so  kann  man  das  »System  La¬ 
demenü«  zu  einem  System  »Nie  wieder  RUN«  ausbauen. 

(Bernhard  Lauer/rg) 
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Automatische 

Zeslennume* 

rierung 

Das  lästige  Durchnumerieren  der  Zei¬ 
len  bei  der  Programmierung  kann  Ih¬ 
nen  dieses  kleine  Programm  abneh¬ 
men. 

Die  Syntax  des  AUTO-Befehls  ist: 

— A  anfangszeilennummer,  Schrittweite 

Nach  Eingabe  dieses  Befehls  wird  die  Zeilennummer  vorge¬ 
geben  und  nach  RETURN  um  »Schrittweite«  erhöht. 

Um  aus  dem  AUTO-Modus  wieder  herauszukommen,  muß 
man  nach  Vorgabe  einer  Zeilennummer 
»— «  RETURN  eingeben. 

Falls  man  nach  Vorgabe  einer  Zeilennummer  die  RETURN- 
Taste  betätigt,  wird  die  entsprechende  Zeile,  falls  sie  vorhan¬ 
den  ist,  gelöscht.  Hiermit  lassen  sich  auch  sehr  schnell  Pro¬ 
grammblöcke  löschen,  falls  man  die  RETURN-Taste  gedrückt 
hält,  die  Zeilenvorgabe  weiterläuft  und  die  entsprechenden 
Zeilennummern  gelöscht  werden. 

»— '«=CHR$(95) 

»A«=CHR$(65) 

Das  Programm  als  Basic-Lader  eintippen,  anschließend  mit 
RUN  starten.  Falls  »FEHLER  IN  DEN  DATAZEILEN«  erscheint, 
DATAs  auf  Tippfehler  überprüfen.  Falls  »OK«,  kann  die  Basic- 
Erweiterung  mit  SYS  49152  initialisiert  werden.  Nun  hat  man 
das  Basic  um  den  Befehl  »A«  erweitert. 

(Frank  Siedel/rg) 


lOlO  rem******************************* 


1020 

rem** 

auto  -fuer  c  64 

** 

1030 

rem** 

von 

** 

1040 

rem** 

frank  siedel 

** 

1050 

rem** 

posener  str.  18 

** 

1060 

rem** 

2945  sande 

** 

1 070  rem******************************* 
10S0  : 

1090  : 

1100  : 

1110  : data 169, 11 ,141 ,8,3,169,192, 141,9,3 
,96,32,115,0,8,201,95,240,4,40,76,231 
1120  : data 167, 32, 115, 0,201 ,65,208,245,32 
,115,0,24,32,107,169,165,20,133,38 
1130  :datal 65, 21 ,133,39,32,253, 174,24,32 
,107,169,165,20,133,40,165,21,133,41 
1140  :datal69, 129, 141 ,2,3,169,192,141,3, 
3,169, 128, 141,138,2,165,39,133,98,165 
1150  :data38, 133,99, 162, 144,56,32,73,188 
,32,221 , 189, 162,0, 189,1, 1,240,9, 157 
1160  : d ataO ,2,32,210, 255 , 232 , 208 , 242 , 32 , 
18,225,201,95,240,30,201 , 13,240,45 
1170  : datal57, 0,2, 232, 32, 98, 165,76, 134, 1 
64,24,165,38,101,40,133,38,165,39,101 
1180  : data41 , 133,39,76,75, 192, 169,131 , 14 
1,2,3,169, 164, 141,3,3,169,0,141 , 138 
1190  : data2,4Q,76, 116, 164,32,118,165,76, 
134,164 
1200  : 

17 '  O  ; 

1220  printchrt (147) 

1230  su=0 

1240  fori=ltol70 

1250  reada 

1260  su=su+a 

1270  poke49151+i ,a 

1280  next 

1290  ifsuO-17417  then  print  "-fehler  in  d 
en  datazei 1 en"  :  end 
1300  pri nt"ok" : end 

ready. 


Musik  aus  der 
Datasefte 

Mit  dieser  Routine  ist  es  beim  C  64 
möglich,  die  Datasette  ohne  techni- 
chen  Umbau  als  normalen  Kassetten¬ 
recorder  zu  betreiben. 

Die  Maschinenroutine,  die  mit  SYS  49152  gestartet  wird, 
stellt  eine  Endlosschleife  dar,  die  mit  der  SHIFT-Taste  jederzeit 
abgebrochen  werden  kann.  In  der  Schleife  selber  werden  die 
Datenbits  aus  der  Datasette  kommend  von  dem  Interrupt- 
Control-Register  der  CIA  1  isoliert.  Der  Lautsprecher  im  Fern¬ 


seher  oder  Monitor  wird  dem  logischen  Zustand  des  einzelnen 
Datenbits  entsprechend  ein-  oder  ausgeschaltet.  Die  für  uns 
daraus  resultierende  Frequenz  wird  originalgetreu  wiederge¬ 
geben,  nur  nicht  die  Tonqualität.  Der  Vorteil  der  Maschinenrou¬ 
tine  ist,  daß  von  der  Datasette  nichts  geladen,  sondern  nur  wie¬ 
dergegeben  wird.  Es  kann  also  bei  einer  Kassette  irgendwo 
»hineingehört«  werden.  Als  Alternative  zu  Programmen  sollte 
man  zur  einfachen  Musikkassette  greifen.  Mit  Phantasie  kann 
die  Musik  erkannt  werden,  doch  die  Tonqualität  läßt  noch  zu 
wünschen  übrig. 

Programm 

10  FOR  1  =  49152  TO  49178:READA:POKEI,A:NEXT 

20  SYS  49152 

30  DATA  173,142,2,240.1,96.173,13,220,41,16,240,7,169,15, 

141,24,212,144,236 

40  DATA  169,0,141,24,212,144,229 

(Jörg  Wagner/rg) 
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List*  und 
Löschschutz 
leicht 
gemacht 

Es  wurden  schon  viele  Methoden  ver¬ 
öffentlicht,  um  ein  Basic-Programm 
gegen  Listen  zu  schützen.  Aber  alle 
mir  bekannten  Möglichkeiten  weisen 
entschiedene  Nachteile  auf.  Entweder 
der  Schutz  ist  nicht  sicher  genug  und 
leicht  zu  entfernen,  oder  er  ist  viel  zu 
aufwendig. 

Ich  habe  mich  daher  entschlossen,  ein  Programm  zu  schrei¬ 
ben,  das  diese  Mängel  umgeht  und  sogar  noch  andere  positive 
Merkmale  aufweist. 

Zunächst  eine  Zusammenfassung  von  drei  mir  bekannten 
Listschutzmöglichkeiten  mit  ihren  Vor-  und  Nachteilen: 

1.  Möglichkeit 

In  die  erste  Zeile  des  Basic-Programms  (zum  Beispiel  Zeilen¬ 
nummer  1)  wird  REM,  gefolgt  von  zwei  Anführungszeichen 
und  SHIFT  L,  geschrieben. 

1  REM””L  (RETURN) 

Der  Cursor  wird  nun  auf  das  zweite  Anführungszeichen  ge¬ 
setzt  und  sechsmal  SHIFT  INST  gedrückt  (das  Anführungszei¬ 
chen  wird  um  sechs  Positionen  nach  rechts  geschoben).  Dann 
wird  sechsmal  DEL  eingegeben  (es  erscheinen  als  Steuerzei¬ 
chen  sechs  reverse  T)  und  die  Zeile  mit  (RETURN)  abgespei¬ 
chert.  Wird  nun  der  LIST-Befehl  aufgerufen,  meldet  sich  der 
Rechner  mit: 

7SYNTAX  ERROR 
READY. 

Auf  den  ersten  Blick  sehr  beeindruckend,  aber  durch  Entfer¬ 
nen  dieser  Zeile  ist  der  Listschutz  wieder  aufgehoben.  Außer¬ 
dem  ist  ein  'LIST  2’  noch  möglich. 

2.  Möglichkeit 

In  jede  Basic-Zeile  werden  synthetische  Steuerzeichen  ein¬ 
gefügt  (genaue  Beschreibung  im  64’er-Magazin,  Ausgabe 
6/84).  Diese  Methode  ist  zwar  recht  sicher,  will  man  aber  alle 
Zeilen  eines  längeren  Basic-Programms  schützen,  ist  der  Auf¬ 


wand  viel  zu  groß,  vom  Speicherplatzbedarf  der  Steuerzeichen 
ganz  abgesehen. 

3.  Möglichkeit 

Durch  POKE  775,200  wird  der  Listbefehl  außer  Kraft  ge¬ 
setzt,  durch  POKE  775,167  wird  diese  Wirkung  wiederaufge¬ 
hoben.  Dieser  Listschutz  ist  zwar  wirkungsvoll,  aber  er  muß 
erst  durch  diesen  POKE-Befehl  aktiviert  werden.  Nach  dem 
Laden  eines  Programms  ist  er  daher  noch  nicht  aktiv. 

Das  hier  vorgestellte  Programm  erzeugt  nicht  nur  einen  si¬ 
cheren  Listschutz,  sondern  schützt  auch  vor  dem  Löschen 
einzelner  Basic-Zeilen.  So  können  zum  Beispiel  Hinweise  auf 
ein  Kopierrecht  und  auf  den  Autor  eines  Programms  nicht  ge¬ 
ändert  oder  entfernt  werden.  Auch  kann  ein  so  gesichertes 
Programm  nur  mit  RUN  gestartet  werden,  ein  RUN,  gefolgt  von 
einer  Zeilennummer,  führt  zu  einer  Fehlermeldung.  Jede  Zeile 
des  Programms  ist  geschützt,  es  können  also  auch  einzelne 
Zeilen  nicht  gelistet  werden.  Einzige  Bedingung  für  die  Ver¬ 
wendung  dieses  Schutzes:  Das  zu  schützende  Programm  darf 
keine  Zeilennummern  0  und  1  enthalten.  Ansonsten  wird  eine 
Fehlermeldung  ausgegeben  und  das  Programm  bleibt  unver¬ 
ändert. 

Das  Listschutzprogramm  liegt  als  Basic-Lader  vor.  Nachdem 
es  richtig  abgetippt  wurde,  kann  es  durch  RUN  gestartet  wer¬ 
den.  Das  Maschinenprogramm  steht  dann  im  Speicher  ab  der 
Adresse  50000  zur  Verfügung.  Das  zu  schützende  Basic- 
Progia.,im  kann  nun  geladen  werden,  durch  SYS  50000  wird 
das  Schutzprogramm  aktiviert  und  das  Basic-Programm  ge¬ 
schützt.  Es  kann  nun  wieder  auf  Kassette/Diskette  gespei¬ 
chert  werden.  Das  mit  dem  Listschutz  versehene  Programm 
ist  nur  um  wenige  Bytes  größer  als  vorher. 

Funktionsweise 

Das  Maschinenprogramm  generiert  zwei  Basic-Zeilen  mit 
den  Zeilennummern  0  und  1.  Die  Zeile  0  ist  eine  REM-Zeile, 
in  der  ein  unlistbares  Zeichen  (SHIFT  L)  steht.  Hinter  diesem 
Zeichen  stehen  dann  noch  zwei  kurze  Maschinenprogramme, 
deren  Funktionen  im  folgenden  noch  erklärt  werden.  In  der 
zweiten  Zeile  steht  ein  SYS-Befehl,  der  eine  der  beiden  Ma¬ 
schinenroutinen  in  Zeile  0  startet.  Sind  diese  beiden  Zeilen 
nun  erzeugt,  wird  die  Zeilennummer  0  durch  eine  höhere,  ei¬ 
gentlich  unerlaubte  Zeilennummer  (größer  64000)  ersetzt. 
Diese  Zeile  kann  daher  auch  nicht  gelöscht  werden. 

Da  alle  nun  folgenden  Zeilen  des  Programms  kleiner  sind  als 
die  erste,  können  diese  vom  Computer  nicht  mehr  erkannt 
werden.  Ein  Sprung  in  eine  solche  Zeile  führt  zu  der  Fehlermel¬ 
dung:  7UNDEFD  STATEMENT  ERROR.  Es  kann  daher  auch 
keine  Zeile  gelöscht  werden,  da  diese  für  den  Computer  ja 
nicht  mehr  vorhanden  sind. 

Der  einzige  Nachteil  ist,  daß  es  nicht  nur  ein  perfekter  List- 
und  Löschschutz,  sondern  auch  ein  RUN-Schutz  ist  (auch 
Sprungziele  innerhalb  des  Programms  können  nicht  gefunden 
werden). 

Wird  das  geschützte  Programm  gestartet,  trifft  der  Interpre¬ 
ter  als  erstes  auf  den  SYS-Befehl  in  Zeile  1 .  Es  folgt  ein  Sprung 
in  das  Maschinenprogramm  in  der  REM-Zeile.  Dort  wird  die 
Zeilennummer  wieder  auf  0  gesetzt,  und  der  Vektor  auf  den 
Basic-Warmstart  wird  auf  die  zweite  Maschinenroutine  ge¬ 
setzt. 
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Nun  kann  das  Basic-Programm  ohne  Fehler  ausgeführt  wer¬ 
den.  Wird  der  Programmlauf  unterbrochen  (durch  STOP-Taste, 
Fehlermeldungen,  Programmende  und  so  weiter),  wird  das 
zweite  Maschinenprogramm  über  den  Basic-Warmstartvektor 
angesprungen.  Dort  wird  die  Zeilennummer  wieder  hochge¬ 
setzt,  der  Warmstartvektor  wieder  auf  den  normalen  Wert  ge¬ 
bracht  und  die  Warmstartroutine  angesprungen.  Das  Pro¬ 
gramm  liegt  nun  wieder  in  der  geschützten  Form  vor. 

(Ulrich  von  Gaisberg/rg) 

0  rem  **************--**•-*-*•**-*-***-*■*-**•*-#--#** 


1  rem  *  u.  v.  gaisberg  * 

2  rem  *  am  zuckerberg  70  * 

3  rem  *  7140  ludwigsburg  * 

4  rem  *  tel .  07141/55910  * 


5  rem  *******-*-*■*•***•*■****■*-*-#■-#--#■■*-**--******-* 

6  f ori=0ta340: reada: b=b+a:  poke50000+i , a 

7  next  i 

9  i-F  b  <>  33527  then  pr  i nt  "-f  ehl  er  in  dat 
as  ! " : end 

9  print"ok  ! ":end 

10  rem  datas  -fuer  maschi nenpragramm 

11  datal69, 0,141 ,32,208,141 ,33,208,169,1 
, 141 , 134,2,32,68,229,174,3,8,172 

12  data4, 8, 192,0,208,7,224,2, 176,3,76,20 
6,195,162,0,142, 134,2, 169,32,32 

13  dat a2 10, 255, 232, 224, 50, 208, 246, 162,0, 
189,21 , 196,157,0,4,232,224,29,208 

14  data245, 169,24, 157,0,4,232,224,69,208 
,246,162,0,189,50,196, 157,80,4,232 

15  dat a224, 8, 208, 245, 162,0, 189,58, 196,15 
7,120,4,232,224,8,208,245,162, 10 

16  datal 60, 0,24, 32, 240, 255, 169, 19, 162, 13 
,160,4, 141,119,2,142,120,2,142,121 

17  data2, 142, 122,2, 132,198,96, 162,0,189, 
99,196,32,210,255,232,224,31,208 

18  data245, 96, 32, 68, 229, 162, 10, 160,0,24, 
32,240,255,162, 1,142,134,2,202,189 

19  dat a66 ,196,32,210, 255 , 232 , 224 , 33 , 208 , 
245, 169,20,162, 17,160,255, 141 , 1B 

20  dataS, 142,29,8, 140,4,8, 162,0, 189,130, 
196,157,32,8,232,224,34,208,245 

21  data96 , 48 ,18,5, 13,34,148,148, 148,148, 
148,148, 148,148,148,148,34,12, 12 

22  data9, 19,20, 19,3,8,21 ,20,26,26,76,49, 
19,25,19,50,48,57,56,19,25,19,53 

23  data48 , 49 ,52 , 48 , 80 , 82 ,79,71 ,82,65,77, 
77,32,45,32,40,67,41,32,85,46,86 

24  data46 , 7 1 ,65,73,83,66,69,82,71,32,32, 
49,57,56,52,66,73,84,84,69,32, 90 

25  dat a69 ,73,76,69,32,48,32,85,78,68,32, 

49 , 32 , 69 , 78 , E4 , 70 , 69 , 82 , 78 , 69 , 78 

26  data32, 33, 169,255, 141 ,4,8, 169, 131 , 162 
, 164,141 ,2,3,142,3,3,76,131 , 164 

27  data 165, 2, 141 ,4,8,169,32,162,8,141,2, 
3, 142,3,3,96,0 

ready . 


Programm  für  List-  und  Lösch-Schutz 


Stringy:  C64- 
Erweiterung 


Stringy  stellt  eine  Basic-Interpreterer- 
weiterung  dar,  die  den  Befehlssatz  des 
C  64  um  acht  Befehle  ergänzt.  Mit  die¬ 
sen  Befehlen  ausgestattet,  kann  man 
sich  einen  Programmgenerator  von 
Basic  aus  programmieren. 

Das  Listing  zu  Stringy  entstand  mit  Hilfe  von  Stringy.  Dabei 
wurden  die  Zahlen  formatiert,  die  Prüfsummen  berechnet  und 
nach  jeder  vierten  Zeile  angefügt.  Mit  Stringy  kann  man  Strubs¬ 
ähnliche  Erweiterungen  programmieren  (Der  Grund,  weshalb 
ich  Stringy  schrieb).  Man  könnte  auch  ein  Programm  schrei¬ 
ben,  das  die  in  einem  Basic-Programm  vorkommenden  Grafik¬ 
zeichen  durch  die  entsprechenden  CHR$-Funktionen  ersetzt, 
damit  ö,e  im  Listing  besser  zu  erkennen  sind.  Auch  Sprite-  oder 
Bildschirmmasken-Generatoren  sind  recht  einfach  zu  pro¬ 
grammieren.  Der  wichtigste  Befehl  von  Stringy  ist  der  MNPUT- 
Befehl.  Mit  ihm  kann  man  einen  String,  der  eine  Basic-Zeile  mit 
Zeilennummer  darstellt,  bei  laufendem  Programm  in  das  Basic- 
Programm  übernehmen  —  ohne,  daß  dabei  die  Programmaus¬ 
führung  unterbrochen  wird. 

Umgekehrt  kann  es  sinnvoll  sein,  eine  Zeile  aus  dem  Basic- 
Programm  herauszuholen,  um  sie  einer  Stringvariablen  zuzu¬ 
ordnen.  Dies  ermöglicht  der  !GET-Befehl. 

Damit  es  keine  Komplikationen  mit  den  Basic-Zeilennum- 
mern  gibt,  teilt  der  INEXL-Befehl  Ihnen  die  Folge  der  Zeiien- 
nummern  mit. 

Die  anderen  fünf  Befehle  dienen  der  Stringverarbeitung.  Vier 
davon  sind  dem  Sinn  nach  identisch  mit  den  entsprechenden 
Stringoperationen  aus  Simons  Basic,  mit  dem  Unterschied, 
daß  die  Parameter  beliebig  komplizierte  Ausdrücke  sein  kön¬ 
nen  (dies  gilt  für  alle  Befehle  von  Stringy). 

Der  letzte  der  fünf  Stringbefehle  ist  der  IREPLACE-Befehl. 


Die  Stringy-Befehle 


Nachfolgend  bedeuten  strl,  str2,  str3  immer  Stringaus¬ 
drücke  und  m,  n,  p,  w,  z  immer  numerische  Ausdrücke. 

IPLACE 

Format:  IPLACE  (str1,str2) 

IPLACE  (str1,str2.m) 

IPLACE  (str1,str2,m,n) 
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Funktion:  Bestimmung  der  Position,  an  der  str2  in  strl  steht 
Die  Angabe  von  m  und  n  grenzt  strl  auf  einen  Teilstring  ein. 
Nur  dieser  Teilstring  von  strl  wird  dann  durchsucht,  und  nicht 
der  ganze  String,  m  gibt  den  Beginn  dieses  Teilstrings  an,  ge¬ 
rechnet  vom  Anfang  von  strl,  n  bestimmt  das  Ende  des  Teil¬ 
strings.  Vorsichtig:  n  wird  vom  Ende  von  strl  aus  gezählt,  also 
in  anderer  Richtung  als  m. 

Beispiel:  »PRINT  IPLACE  ("COMMODORE”,  ”0’’)«  liefert  2  als 
Antwort. 

»PRINT  IPLACE  r’COMMODORB’,  ”0”,3)«  liefert  5  als  Ant¬ 
wort,  da  nur  in  "MMODORE”  gesucht  wurde 
»PRINT  IPLACE  ("COMMODORE”,  ”E”,  1,  4)«  liefert  0  als  Er¬ 
gebnis,  da  ”E”  nicht  in  dem  Teilstring  "COMMOD”  enthalten  ist. 

IREPLACE 

Format:  IREPLACE  (str1,str2,str3) 

IREPLACE  (str1,str2,str3,m) 

IREPLACE  (str1,str2,str3,m,n) 

Funktion:  Ersetzen  aller  str2,  die  in  strl  Vorkommen,  durch 
str3.  Dabei  kann  strl,  wie  beim  IPLACE-Befehl  beschrieben, 
durch  n  und  m  eingegrenzt  werden. 

Beispiel:  10  A$=’’INDEX=B$  +  C$” 

20  B$  =  !REPLACE(A$, "INDEX”, ”IN$”) 
Nach  Ausführung  gilt:  B$="IN$  =  B$  +  C$” 

10  N$=”PETER  PAUL  MARY” 


Soll  der  Computer  anschließend  zum  Programm  zurückkeh¬ 
ren,  so  muß  der  letzte  Befehl  in  str  ein  »GOTO  {Zeilennummer)« 
sein. 

Beginnt  str  mit  einer  Zeilennummer,  so  wird  str  als  Basic- 
Zeile  in  das  laufende  Programm  eingefügt,  sofern  in  dem  Pro¬ 
gramm  nicht  bereits  eine  Zeile  mit  derselben  Zeilennummer 
existiert.  Andernfalls  wird  die  betreffende  Zeile  vor  dem  Einfü¬ 
gen  gelöscht.  Wenn  allerdings  diese  zu  löschende  Zeile  eine 
noch  offene  FOR  . .TO-Anweisung  oder  ein  noch  nicht  durch 
RETURN  abgeschlossenes  GOSUB  enthält,  so  erfolgt  ein 
CANT  CONTINUE  ERROR. 

Die  gleiche  Fehlermeldung  erscheint  auch,  wenn  Sie  eine 
Zeile  löschen  wollen,  in  der  sich  der  DATA-Zeiger  momentan 
befindet.  Beispiel: 

10  DATA  5  6 

20  READA:!INPUT(STR$(10)) 

Nach  RUN  erfolgt  ein  CANT  CONTINUE  ERROR,  da  sich 
der  DATA-Zeiger  in  Zeile  10  befindet.  Durch  einen  RESTORE- 
Befehl,  läßt  sich  diese  Zeile  dennoch  löschen: 

10  DATA  5  6 

20  READA:RESTORE:!INPUT(”10”) 

Nach  Ausführung  dieser  beiden  Zeilen  ist  die  Zeile  10  ge¬ 
löscht.  Enthielt  die  gelöschte  Basic-Zeile  eine  DEF- 
Anweisung,  so  gilt  diese  Funktion  als  nicht  definiert.  Enthielt 
die  gelöschte  Basic-Zeile  eine  Stringvariablenzuordnung  der 


20  M$  =  IREPLACE  (N$, "PETER”,  ”  ”) 


Nach  Ausführung  gilt:  M$=”PAUL  MARY” 


Art  »AA$=”ABCD”«  oder  »AS(n)=”ABCDE”«,  so  ist  anschlie¬ 
ßend  die  Variable  nur  noch  als  Leerstring  definiert. 

Soll  der  IINPUT-Befehl  direkt  nach  einem  THEN  stehen, 


dann  '  ein  Doppelpunkt  einzufügen  »...THEN:!INPUT...« 


IINSERT 

Format:  IINSERT  (strl  ,str2,p) 

Funktion:  Fügt  str2  in  strl  ein.  Die  Position  p  bestimmt,  an  wel¬ 
cher  Stelle  str2  in  strl  eingefügt  werden  soll. 

Ist  dabei  p=0  oder  p=len  (strl),  so  wird  angefügt. 

Beispiel:  »PRINT  IINSERT  (”ABCEF”,”D”,3)«  liefert:  "ABCDEF” 
»PRINT  IINSERT  ('ABCEF',”D",0)«  liefert:  "DABCEF” 

»PRINT  IINSERT  (”ABCEF”,”D”,5)«  liefert:  "ABCEFD” 

ISTOVER 

Format:  ISTOVER  (strl ,str2,p) 

Funktion:  Überschreibt  strl  mit  str2. 

Die  Position,  ab  der  strl  überschrieben  werden  soll,  wird 
durch  p  angegeben. 

Ist  str2  länger  als  strl,  oder  ist  wegen  der  Positionsangabe  p 
ein  Überschreiben  nicht  möglich,  so  erfolgt  ein  ILLEGAL 
QUANTITY  ERROR. 

Beispiel:  »PRINT  ISTOVER  ("GOTO  XXXX",  ”01 69”, 6)«  liefert: 
"GOTO  0169” 

!DUP 

Format:  IDUP  (str,w) 

Funktion:  Es  wird  str  w-mal  dupliziert. 

Beispiel:  A$  =  !DUP(”.”, 255)  liefert  einen  String  mit  255  einzel¬ 
nen  Punkten. 

IINPUT 

Format:  IINPUT(str) 

Funktion:  Hat  str  keine  Zeilennummer  am  Anfang,  so  geht  der 
Computer  in  den  Direktmodus  über  und  führt  str  sofort  aus. 


!GET 

Format:  !GET(z) 

Funktion:  Es  wird  die  Basic-Zeile  mit  der  Zeilennummer  z  in 
Stringformat  geholt.  Der  Parameter  z  darf  dabei  nicht  den  Wert 
0  haben.  Beispiel: 

10  REM  IGET-DEMO 
20  PRINT!GET(10):PRINT!GET(20) 

30  A$  =  !GET(30) 

40  PRINT  MID$(A$,!PLACE(A$,”  ”)  +  1) 


INEXL 

Format:  INEXL(z) 

Funktion:  Es  wird  die  auf  z  folgende  Basic-Zeilennummer  ge¬ 
holt.  Hat  I  NEXL(z)  den  Wert  0,  so  bedeutet  dies,  daß  auf  z  kei¬ 
ne  Basic-Zeilen  mehr  folgen.  Beispiel: 

10  REM  INEXL-DEMO 

20  REM  SIMULATION  DES  LIST-BEFEHLS 

30  Z  =  0 

40  Z  =  !NEXL(Z):IFZ  =  0  THEN  END 
50  PRINT  !GET(Z):GOTO  40 

Zum  Schluß  noch  einige  Daten  zu  Stringy.  Stringy  belegt 
den  Speicher  von  $c100  bis  $c85a.  Der  Bereich  von  $c000 
bis  ScOff  dient  als  Stringzwischenspeicher  (je  nach  Befehl 
wird  dieser  Raum  benutzt).  Die  Speicherplätze  $c85b  bis 
$c865  dienen  als  Zwischenspeicher  für  einige  wichtige  Be¬ 
triebssystemdaten.  Der  unter  dem  Basic-ROM  liegende  Spei¬ 
cherbereich  wird  mitbenutzt. 

(Karl  Szameitat/ev) 
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0  REM  STRINBY  BY  KARL SZ AMEI TAT , MUEHLENSTR  SB. 

2355  WANKEI'JDÜRF 

100  DATA  23.8,000, 192,208,003,076,113,  165,233, 
017,193,208,003,238,018,193 

101  DATA  141,071,192,096,165,001,041,254,133, 
00 1 , 096 ,165,001, 009 ,001,1 33 

1 02  DATA  00 1 ,096,1 69 , 030 ,162, 1 60 , 1 33 , 020 ,134, 
02 1 , 1 33 , 302 , 1 62 ,192,1 60 , 000 

1 03  DATA  1 77 , 020 , 1 45 , 020 , 200 , 208 , 249 , 230 ,021, 
228 , 02 1 , 208 , 241,1 69 , 096 ,141, 7522 

104  DATA  020, 167, 141 ,838, 181 , 160,005, 169, 234* 
153,209,166,  .136,016,250, 160 

105  DATA  002,153,237,164,136,016,250,169,000, 
1 62 ,193,14 1 , 072 ,171,1 42 , 073 

1 06  DATA  1 7 1 , 1 69 , 243 ,141, 000 , 003 ,142,001, 003 , 
1 69 ,122,141,008 , 003,1 4.2 ,009 

107  DATA  003, 169, 170,141,010,003,142,01 1 ,003, 
096 , 032 ,115, 000 , 003 , 20 1 , 033 , 6890 

103  DATA  240,004,040,076,231,167, 032 , 1 1 5 , 000 , 
201,133, 208 , 004 , 1 04 , 076 ,015 

1 09  DATA  1 96 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 
234 , 234 , 234 , 234 , 234 , 234 , 234 

1 1 0  DATA  234 , 234 , 234 , 234 , 234 , 234 , 234 , 076 , 008 , 
1 75 , 1 69 ,000,133,01 3 , 032 , 1 15 

111  DATA  000,008,201,033,240,004,040,076,141, 
174, 104,032, 115,000, 160,006,9045 

112  DATA  217,077,200,240,005,136,016,248,048, 
199,185,084,200,168,032,1 15 

113  DATA  000,217,032,200,208,187,200,201,040, 

208,243,185,032,200,072,185  | 

1 1 4  DATA  033 , 200 , 072 , 076 , 1 1 5 , 000 , 1 69 , 000 , 1 62 , 
192,141,817,  193, 142,0.13, 193 

115  DATA  076,016,193,138,048,010,169,000,133, 
002 , 032 , 027 ,193, 876 , 053 ,164, 7638 

.116  DATA  076,116,164,032,020,193,134,035,104, 
1 33 ,020,104,133,021,169,006 

1 1 7  DATA  032 , 25 1,163, 230 , 002 ,160,011,185,165, 
000 , 072 , 1 36 ,016, 249 , 1 65 , 02 1 

1 1 8  DATA  072 , 1 65 , 020 ,072,166,035,134,174,169, 
165,162,000, 133,175,134,176 

119  DATA  032 , 158 , 173 , 032, 143 , 173 , 160 , 002 , 177 , 
100, 145,175, 136,016,249,165,7306 

128  DATA  100,164,101,032,219,182,198,174,240, 
0 1 1  ,  032 , 253 ,174, 230 ,175, 230 

121  DATA  175,230, 175, 28S, 2 19, 162,001 ,032, 121, 
000 , 20 1 ,041, 240 , 006 , 032 , 253 

122  DATA  174,032,158,183,134,174,162,001,201, 
041 ,240,006,032,253, 174,032 

123  DATA  153,183,134,175,076,247,174,032,230, 
193,165,073,072, 165,074,072,8831 

124  DATA  032,138,173,032,247,183,832,247,1.74, 
032 ,019,166, 032 , 020 , 1 93 , 032 

1 25  DATA  1 89 , 1 66 , 032 , 027 , 1 93 , 1 04 ,133,074,104, 
1 33 , 073 ,169,001,162,1 92 , 1 33 

1.26  DATA  111,134,112,173,017,193,076,192,180, 
166,163,165,166,197, 175,240 

127  DATA  023,160,000,177,166,209,169,208,006, 
202 , 240 ,011, 200 , 208 , 244 , 230 , 8555 

1 28  DATA  1 66 , 208 , 230 , 230 ,167, 208 , 226 , 024 , 096 , 
1 65 , 1 74 , 240 , 025 ,165, 1 75 , 240 

129  DATA  021, 198,  ifM-,  198,  175,024, 165, 174, 101, 
175,176,010,101,168,176,006 

130  DATA  197,165,240,005,144,003,076,072,178, 


024,165, 166,101 , 165,056,229 

131  DATA  175,056,229,168,133,175,230 
165,166, 101 , 174,133,166,144,9131 

132  DATA  002.230,167,096,162,002,032 
165,168,248,034,165,165,240 

133  DATA  030, 197,168, 144,026,165, 166 
201,194,032,169,194,104,176 

1. 34  DATA  014,229,166, 073 , 255 , 170, 232 
195,1 38 ,168, 076 ,162,179,1 62 

135  DATA  000,240,244,104,133,020,104 
160,244, 104, 153,177,255,200,8729 

136  DATA  208,249,165,021,072,165,020 
002 , 208 , 003 , 032 , 027 , 1 93 , 096 

1 37  DATA  1 62 , 003 , 032 , 003 , 1 94 , 024 ,165 
034 ,101,1 65 , 1 33 , 037 ,165,1 67 

1 38  DATA  1 33 , 035 , 032 , 230 , 1 93 , 032.,  20 1 
169,1 94 , 1 44 , 004 , 165 , 837 , 1 33 

139  DATA  166,  ii>5, 166,  197,034,240,015 
1 77 , 334 , 332 , 000 , 193 , 230 , 034 , 7 1 86 

140  DATA  238,239,230,035,208,235,165 
037 , 240 , 037 , 024,160,000,165 

1 4 1  DATA  834 ,101,168, 1 33 , 034 ,144, 002 
1 96 ,171,240,008,177,1 72 , 032 

1 42  DATA  030 ,193, 203 , 208 , 244 , 1 65 , 034 
240 , 006 , 032 ,191,194, 076 , 1 07 

143  DATA  195,032,051,195,076,155,194 
032,003, 1 94 , 165 , 168 , 240 , 008 , 8087 

144  DATA  165, 165,240,304, 197, 174,176 
072 ,178, 024 ,101,168,176, 248 

ITISF'^  TA  032 ,  1 25 ,180,1 33 , 208 , 00 1  ,  1 36 
017,193,140,018, 193,160,000 

146  DATA  140,000,192, 196,174,240,014 
032,000, 193,200,198,165,208 

147  DATA  242,165,163,243,020,152,170 
177,169, 032 , 000 , 193 , 200 ,198, 8633 

148  DATA  168 , 208 , 246 , 1 38 , 168 , 163 , 165 
032 , 051,1 95 , 076 , 202 ,180, 1 60 

1 49  DATA  011,185,165, 003 ,133, 09 1 , 200 
247 , 032 ,166,179 , 032 ,115, 000 

150  DATA  032,250,174,032,158,173,032 
032,163, 132,201 ,089,144,003 

151  DATA  076,113,165,170,208,003,076 
165 ,122, % 64,123,133, 1 65 , 1 32 , 8466 

1 52  DATA  1 66 , 1 60 ,000,1 32 , 167,1 32 , 1 68 
232 , 202 , 243 , 008 , 1 77 , 034 , 1 53 

I. 53  DATA  000,002,200,203,245,138,153 

202 ,160,001,134,122,132,1 23 

154  DATA  032,115,000,144,003,076,019 
107,169,032, 121 , 165,132,011 

155  DATA  032,019,166,176,003,076,216 
072,199, 176,036,166,020,164,7200 

1 56  DATA  82 1  ,  1. 96 , 064 , 208 , 020 , 228 , 063 
1 65 , 043 , 229 , 065 , 008 ,201, 00 1 

1 57  DATA  208 ,015, 040 ,165, 044 , 229 , 066 
1 96 , 058 , 208 , 009 , 228 , 057 , 208 

J.  58  DATA  005,162,026,076,055,164,165 

165,096,072,056,160,000,177 

J.  59  DATA  095 , 1 33 ,167, 229 , 095 , 1 33 , 1 69 
095 ,133, 1 68 , 032 ,131,198,162, 7546 

1 60  DATA  000 , 056  ,  .1. 8 1 , 045 , 229 , 169 , 1 49 
1 76 , 002 ,214, 045 , 232 , 224 , 006 

1 6 1  DATA  208 , 239 , 1 04 , 1 33 , 096 , 1 04 , 1 33 
000 , 002 , 208 , 005 ,133,011, 076 


, 175,024, 
,003,194, 
, 072 , 032 , 
,032,051 , 
, 133,021 , 
, 072 ,198, 
,166, 1 33 , 
,  1.94,032, 
, 160,000, 
,034, 197, 
,  230 , 035 , 
, 1 97 , 037 , 
, 162,002, 
, 003 , 076 , 
,202,142, 
,177,166, 
, 160 , 000 , 
, 208 , 222 , 
, 136,016, 
,247,174, 
,055, 198, 
,132,169, 
, 000 , 002 , 
,200,032, 
, 196,032, 
,208,01.6, 
, 208 , 008 , 
, 095 , 072 , 
,200, 177, 
, 045 , 232 , 
, 095 , 1 73 , 
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1 62  DATA  03 1 ,197, 024 ,165,049,133,090,101,011, 
133,038,164,050, 132,091,144 

163  DATA  001 ,200, 132,089,032, 1S4, 163, 162,000, 
024 , 181, 045 , 101,011, 149, 045 , 6347 

164  DATA  232 , 144 , 002 , 246,045 , 232 , 224 , 004,208 , 
239, 165,020,164,021 , 141,254 

165  DATA  001,140,255,001,164,011,136,185,252, 
00 1 ,145, 095 ,136,016, 248 , 032 

166  DATA  051,165,165,165,164,166,032,182,198, 
133,122, 132, 123,165,065,164 

1 67  DATA  066 , 032 ,182,198,1 33 , 065 , 1 32 , 066 , 032 , 
206,198,165,045, 166,046,133,8216 

168  DATA  034,134,035,160,000,177,034,016,007, 
200 , 1 77 , 034 , 048 , 007 ,016, 03 1 

169  DATA  200,177,034,048,077,024,165,034,105. 
007 , 1 33 , 034 ,144, 002 , 230 , 035 

1 70  DATA  1 65 , 035 , 1 97 , 048 , 1 44 ,221, 1 65 , 034 , 1 97 , 
047,144,215,076, 187,197,20© 

171  DATA  200,177,034,170,136,177,034,032,028, 
1 99  ,  1 76 , 02S  ,  032 , 050  ,  .1. 99 ,145, 6648 

17 2  DATA  034,200,138,145,034,200,200,177,034, 
170,136, 177,034,032,050,199 

1 73  DA  FA  1 45 , 034 ,138, 200 ,145, 034 , 208 ,139,169, 
000 , 168,1 45 , 034 , 200 , 1 45 , 034 

174  DATA  208,179,200,200,200,177,034,170,136, 
177,034,032,028, 199,176,232 

1 75  DATA  032 , 050 ,199,145, 034 , 200 , 1 38 ,145, 034 , 
208 ,154,165,047,166, 048 ,133, 8228 

176  DATA  034,134,035,228,050,208,013,197,049, 
208 , 009 , 076 , 055 ,198,1 65 , 036 

177  DATA  166,037,203,235,024,160,002,113,034, 
133,036,200,138, 1 13,034,133 

178  DATA  037 , 1 60 , 000 ,177, 034 , 043,23 1 , 200 , 1 77 , 
034 ,016, 226 ,160, 004 , 1 77 , 034 

179  DATA  010,105,005,101,034,133,034,144,002, 
230 , 035 ,160, 000 ,177, 034 , 240 , 6620 

1 80  DATA  022 , 200 , 200 ,177, 034 , 1 70 ,136, 1 77 , 034 , 
032 , 023 ,199,176, 034 , 032 , 050 

181  DATA  199,145,034,200,138,145,034,024,165, 
034  ,  1 05 , 003 ,  1 33 , 034  ,  .1. 44 , 002 

182  DATA  230,035,165,035,197,037,144,211,165, 
034 ,197, 036 ,144, 205 , 1 76 , 1 53 

.1  83  DATA  1 69 , 000 ,168, 1 45 , 034  ,,  240 , 224  ,160, 244  , 
1 85 , 1 03 ,199,153,1 77 , 255 , 200 , 8065 

184  DATA  208,247,032,121,000,076,231,167,186, 
1 89 , 003 , 001,201,141, 240 , 006 

1  85  DATA  20 1 ,129, 240 , 027 , 024  ,  096 , 1 89 , 004 ,001, 
197,020,208,007,189,005,001 

186  DATA  1.97,021,240,241,024,138,105,007,170, 
20 1 , 248 , 1 44 , 220 ,176, 229 , 1 89 

187  DATA  017,001,197,020,208,037,189,018,001, 
197,021 ,240,216,024,138, 105,7736 

1 38  DATA  0 1 8 , 208 , 229 , 1 60 , 000 ,177, 095 ,133, 034 , 
200,177,095,133,035,165,049 

J.89  DATA  133,036,165,050,133,037,136,177,034, 
1 45 , 095 , 1 65 , 036 ,197, 034 , 208 

190  DATA  007,165,037,197,035,208,001,096,230, 
034 , 208 , 002 , 230 , 035 , 230 , 095 

1 91  DATA  208 , 229 , 230 , 096 , 208 , 225 ,196, 096 ,144, 
0 1 3 , 240 , 0  3. 2 , 229 , 1 69 , 1 76 ,001, 797 1 

172  DATA  136,024,101,011,144,001,200,096,197, 
095, 144,251 , 176,236,186,189 

1 93  DAT A  003 , 00 1,201,141, 240 , 005 , 20 1 ,129, 240 , 


028,096,189,006,001, 188,007 

194  DATA  001,032,182,198,157,006,001,152,157, 
007,001,024 , 138, 105,007,170 

195  DATA  20 1 , 24S , 1 44 ,219, 176,223, 1 88 ,019, 00 1 , 
189,020,001 ,032, 182,198,157,7404 

196  DATA  020,001,152,157,019,001,189,004,001, 
188,005,001 ,032,182,198, 157 

197  DATA  iß4, 00 1 , 152, 157,005,001 ,024,138, 105, 
018  j  208 , 2 1 1 ,228,168,144,006 

193  DATA  208,014,197,167,176,010,228,096,144, 
007 , 208 , 005 , 1 97 , 095 , 1 76 , 00 1 

199  DATA  024,096,228,052,240,004,176,023,144, 
004 ,197,051,176,017, 228 , 096 , 6562 

200  DATA  144,013,240,012,229,169,176,001,202, 
024, 101,01 1,144,001,232,096 

?\äi  DATA  197,095,144,251,176,238,162,002,032, 
003 , 1 94 , 1 65 ,163, 240 , 004 , 1 65 

202  DATA  165,208,003,076,072,179,024,166,174, 
240,243,202,134,174,138, 101 

203  DATA  168,197,165,240,002,176,236,165,165, 
032, 125,180,134,033, 132,034,8518 

204  DATA  164,165,136,177,166,145,098,152,208, 
248,024,165,174,101 ,033,133 

205  DATA  033,144,002,230,034,164,163,136,177, 
169,145,033,152,208,243,032 

206  DATA  051 , 195,076,202, 1S0, 076, 227, 168, 162, 

00 1 , 032 , 003 ,194,165,165, 203 

207  DATA  003, 076, 072, 178, 032, 230, 193, 166, 174, 
240,246,160,000,177,166,032,8614 

•  208  r ‘ 1  4  000 ,193,200,196 , 1 65 ,208,246, 202 , 208 , 
241,032,051 , 195,076, 155,194 

209  DATA  032,138,173,032,247,183,032,019,166, 
160,000,144,039, 177,095.133 

210  DATA  020,200,177,095,133,021,177,020,240, 
021,200,200,177,020, 170,136 

211  DATA  177,020,133,099,134,098,162,144,056, 
032 , 073 , 1 38 , 076 , 247 ,174,169, 832 1 

212  DATA  000,170,240,238,200,177,095,240,246, 

1 66 , 095 ,165, 096 ,134, 020 , i 33 

2 1 3  DATA  021,208,215,169, 255 , 1 33 , 058 , 032 , 1 2 1 , 

1 65 , 032 ,115, 000 , 076 , 055 , 1 98 

214  DATA  040, 194, 11 8, .076, 065, 067, 069, 040, 195, 
003 , 069 , 080 , 076 , 065 , 067 , 069 

215  DATA  040, 195, 079, 07S, 083, 069, 082, 084,040, 
195,182,164, 036 , 069 , 032 . 040 ,7129 

216  DATA  199,085,035,080,040,199,167,069,088, 
076 , 040 ,199, 207 ,161, 080 , 082 

219  DATA  873,033,068,078,000,003,010,019,027, 
034,039,2291 

300  : 

318  REM  PDKE/PRUEFROUT I NE 

320  : 

330  RES TO RE: AD=49408; ZE=100 

340  PR=0 

350  READ  PO: IF  PO >255  THEN  370 

360  PR=PR+F'0:  POKE  AD  ,  PO:  AD=AD+ 1  :  GOTO  350 

370  IF  POOPR  THEN  PR  I  NT  "  FEHLER  «SPACE»  I N  «SPACE» 
2EI LEN " ZE " B I S " Z E+3 :  END 

380  IF  PQ=2291  THEN  PR I NT " DAT AS  «SPACE  »OK  «SPACE » 
—«SPACE »SA VE «SPACE »PROGRAMM «SPACE »UND «SPACE» 
STARTE«SPACE»iY!IT«SPACE»SYS49442"  :  END 

390  ZE=ZE+4s  GOTO  340 


Listing  »Stringy«  (Schluß).  In  Zeile  370/380  bei  »SPACE« 
einfach  die  Leertaste  drücken! 
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liehe  Gestaltung  lädt  direkt  zum 
Nachschlagen  ein,  womit  der  Ti¬ 
tel  durchaus  seine  Berechtigung 
fmdet. 

(Bernd  Schulte) 

Mitchell  Waite/Miachel  Pardee,  Basic-Pro- 
grammier-Hancibuch,  Markt&Technik  1S84, 
506  Seiten.  ISBN  3-S22120-92-X.  78  Mark 


Basic- 

Programmier-Handbuch 


Wer  sich  endlich  seine  mehr 
oder  weniger  teure  Computer- 
Anlage  angeschaift  hat,  wird 
auch  gerne  die  Kunst  des  Pro- 
grammierens  erlernen  wollen 
Die  meisten  Computerneulinge 
betätigen  sich  hier  als  Autodi¬ 
dakten,  doch  steht  ihnen  zumeist 
nur  eine  unzureichende  Doku¬ 
mentation  im  Handbuch  zur  Ver¬ 
fügung.  Das  nun  in  zweiter  Aufla¬ 
ge  in  deutscher  Übersetzung  er¬ 
schienene  »Basic-Programmier- 
Handbuch«  aus  der  Reihe  der 
Computer-Persönlich-Bücher  ist 
ein  weiteres  Buch  in  der  Masse 
der  Literatur,  die  dem  Neuling 
die  Auswahl  erschwert.  Doch 
dieses  Buch  unterscheidet  sich 
in  einigen  Punkten  deutlich  vom 
sonstigen  Angebot. 

Zunächst  fällt  einmal  der  Um¬ 
fang  dieser  Einführung  auf:  Gan¬ 
ze  508  Seiten,  in  gut  lesbarem 
Druck  gesetzt,  stehen  dem 
Basic-Anfänger  zur  Durcharbei¬ 
tung  bevor.  Doch  das  Arbeiten 
mit  diesem  Handbuch  ist  ausge¬ 
sprochen  leicht.  Der  Inhalt  ist 
klar  in  Kapitel  und  Abschnitte 
unterteilt.  Es  beginnt  mit  einer 
allgemeinen  Einführung  in  die 
Praxis  der  Programmierung, 
und  über  die  Grundlagen  der 
Programmierung  bis  hin  zu  den 
Höhen  der  Maschinencode-Pro¬ 
grammierung  wird  dem  Interes¬ 
sierten  alles  Wissenswerte  ver¬ 
mittelt. 

Im  ersten  Kapitel  werden  die 
Grundlagen  einer  Program¬ 
miersprache  vermittelt,  so  die 
Ein-  und  Ausgabe  und  das  Er¬ 
stellen  einfacher  Listmgs.  Im 
zweiten  Kapitel  werden  dann 
Programmerstellung  und  -Steu¬ 
erung  vorgestellt.  Alles  wird  mit 
einfachen,  durchweg  »netten« 
Beispielen  verdeutlicht.  Über¬ 
haupt  findet  sich  in  diesem  Buch 
nicht  der  Ernst,  der  das  Arbei 
ten  mit  anderen  Veröffentlichun¬ 
gen  manchmal  schnell  verlei¬ 
det.  Einige  humorstische  Abbil¬ 


dungen  und  ein  leichter 
Schreibstil  lassen  dieses  Hand¬ 
buch  zu  einer  Lektüre  werden, 
bei  der  jeder  neue  Abschnitt  mit 
anhaltendem  Interesse  ange¬ 
gangen  wird. 

Am  Ende  jedes  Kapitels  ste¬ 
hen  einige  Fragen,  die  den 
Lernerfolg  bestätigen  sollen. 
Die  in  den  ersten  beiden  Kapi¬ 
teln  vermittelten  Grundkenntnis¬ 
se  werden  im  dritten  Kapitel  an¬ 
hand  eines  Spielprogramms 
vertieft  und  mit  einigen  Raffines¬ 
sen  angereichert. 

In  die  Feinheiten  von  Basic  füh¬ 
ren  dann  die  Kapitel  vier  und 
fünf  ein,  Stringfunktionen  und 
Programmierhilfen  lernt  der  Le¬ 
ser  ebenso  kennen  wie  den  Um¬ 
gang  mit  der  Peripherie.  Nach¬ 
dem  schließlich  das  Kapitel 
sechs  ebenso  wichtige  wie  inter¬ 
essante  Funktionen  und  Routi¬ 
nen  für  eine  gute  Programmie- 


nablenbehandlung  vorstellt, 
wird  im  letzten  Kapitel  ein  kom¬ 
plettes  Programm  entwickelt. 
Hier  kann  der  inzwischen  zum 
»Fast-Profi«  gewordene  Leser  al¬ 
le  Kenntnisse  anwenden,  um 
den  Zauberwürfel  auf  seinem 
Computer  zu  simulieren. 

Ein  umfangreicher  Anhang,  in 
dem  die  verschiedenen  Zahlen¬ 
systeme  sowie  Tips  zum  Spei¬ 
chersparen  und  Programmbe¬ 
schleunigen  ebenso  aufgelistet 
sind  wie  die  Lösungen  zu  den 
Aufgaben  am  Ende  jedes  Kapi¬ 
tels  schließt  das  Buch  dann  ab. 

In  diesem  Basic-Programmier- 
handbuch  wird  kein  spezieller 
Basic-Dialekt  zugrunde  gelegt, 
jedoch  finden  sich  viele  Befehle 
und  Funktionen,  die  auf  einem 
Kleinstcomputer  wohl  kaum  an¬ 
zutreffen  sind.  Der  Umfang  und 
der  verwendete  Sprachschatz 
deuten  hingegen  an,  daß  dieses 
Buch  auf  Computer  der  gehobe¬ 
nen  Klasse  zugeschnitten  ist.  Da 
Dinge  wie  Grafik,  Ton  oder  Peri 
pherieansteuerung  sehr  rech¬ 
nerspezifisch  sind,  wird  im  Buch 
nicht  darauf  eingegangen. 

Wer  also  eine  gut  zu  lesende 
allgemeine  und  noch  dazu  um¬ 
fangreiche  Einführung  ms  Basic- 
Programmieren  sucht,  für  den  ist 
dieses  Buch  das  Richtige.  Sowohl 
als  Lektüre  zwischendurch  wie 
bei  der  Arbeit  am  Computer  bie¬ 
tet  es  sich  an.  Die  sehr  übersicht- 


Das  Maschinenspractie- 
buch  für  Fortgeschrittene 
zum  Commodore  64 


Wer  glaubt,  daß  das  Thema  »C 
64«  buchmäßig  abgeschlossen 
sein  müßte,  wird  von  Data- 
Becker  eines  Besseren  belehrt. 
Inzwischen  sind  über  zwanzig 
Bücher  dieses  Verlags  auf  dem 
Markt.  Eines  davon  ist  das  »Ma¬ 
schinensprachebuch  für  Fortge¬ 
schrittene  zum  Commodore  64«. 
Der  Rückseitentext  verspricht 
eine  Einführung  in  die  professio¬ 
nelle  Maschinensprachepro- 
grammierung,  angefangen  bei 
der  Problemanalyse,  bis  zu  stets 
verwendbaren  Tips  und  Tricks. 

Wer  jetzt  erwartet,  eine  Art 
Lehrbuch  oder  Kursus  zu  be¬ 
kommen,  wird  allerdings  ent¬ 
täusch  Denn  der  tatsächliche 
Inhalt  läßt  sich  grob  in  drei  Teil¬ 
gebiete  aufteilen: 

—  Fließkommaarithmetik  auf 
dem  C  64  unter  Ausnutzung 
schon  vorhandener  ROM- 
Routinen 

—  Interruptprogrammierung 

—  Selbstprogrammierte  Basic- 
Erweiterungen 

Diese  drei  Teilgebiete  wer¬ 
den  auf  je  zirka  70  Seiten  aus¬ 
führlich  und  mit  sehr  vielen  Bei¬ 
spielen  besprochen. 

Dabei  ist  das  Buch  sehr  ver¬ 
ständlich  geschrieben.  So  lernt 
man,  wie  versprochen,  beim  Le¬ 
sen  der  einzelnen  Kapitel  und 
Ausprobieren  der  Beispiele, 
nicht  nur  etwas  über  die  ent¬ 
sprechende  Thematik,  sondern 
auch  über  Maschinensprache 
im  allgemeinen. 

Nur  ein  Detail  hat  mir  an  die¬ 
sem  Buch  mißfallen:  Die  ständi¬ 
ge  »Werbung«  für  den  Data- 
Becker-Assembler  Profimat. 

Insgesamt  kann  ich  das  Buch 
folgenden  zwei  Gruppen  wärm- 
stens  empfehlen: 

Denen,  die  ihren  C  64  besser 
kennenlernen  wollen  und  denen 
ein  ROM-Listing  dazu  nicht 
reicht,  sowie  denen,  die  gerne  in 
Maschinensprache  »weiterkom¬ 
men«  wollen. 

(Boris  Schneider) 

Lothar  Englisch,  Maschinensprache  für  Fort¬ 
geschrittene.  Data  Becker  1984,  200  Seiten, 
39  Mark 


rung,  wie  Fehler-,  String-  und  V&- 
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PEEKs  und  POKEs  zum 
Commodore  64 


Die  große  Reihe  der  Data- 
Becker-Bücher  zum  Commodo¬ 
re  64  ist  um  ein  Buch  reicher  ge¬ 
worden.  Es  handelt  sich  um 
»PEEKs  &  POKEs  zum  Commo¬ 
dore  64«  des  Autors  Hans  Joa¬ 
chim  Liesert. 

Dieses  Buch  erweckte  sofort 
mein  Interesse,  versprach  doch 
der  Titel  endlich  einmal  ein 
Werk,  mit  dessen  Hilfe  man  sich 
durch  den  »POKE-Wald«  des 
Commodore  64  kämpfen  konnte, 
ohne  dabei  an  den  Rand  des 
Wahnsinns  zu  gelangen. 

Dieses  Buch  ist  für  Anfänger 
gedacht  und  beginnt  mit  einer 
lockeren  Einführung  in  die  Ar¬ 
beitsweise  des  Mikroprozessors 
6502  und  schließlich  des  gesam¬ 
ten  Computers.  Da  die  Informa¬ 
tionen  sehr  ausführlich  und  ge¬ 
nau  nahegebracht  werden,  wird 
auch  der  blutigste  Einsteiger 
schon  innerhalb  kürzester  Zeit 
das  Konzept  emes  Mikrocompu¬ 
ters  verstehen. 

Nach  den  Grundlagen  be¬ 
ginnt  der  Autor  die  wichtigsten 
Adressen  des  Speichers  zu  er¬ 
läutern  und  die  Funktionsweise 
anhand  von  Beispielen  ausführ¬ 
lich  darzustellen.  Das  fängt  bei 
der  Peripherieverwaltung  an, 
geht  über  die  Grafik  und  den 
Ton,  bis  hin  zur  Tastatur  und 
schließlich  zu  Basic  und  Be¬ 
triebssystem. 

Da  praktisch  keine  Vorkennt¬ 
nisse  verlangt  werden  und  das 
Buch  zudem  sehr  erfrischend 
und  spannend  geschrieben  ist, 
wird  auch  der  Anfänger  bei  der 
Lektüre  nicht  überfordert,  und 
er  wird  schnell  mit  den  Möglich¬ 
keiten  seines  C  64  vertraut. 

Etwas  negativ  bewerte  ich  nur 
den  »Minikurs«  für  Maschinen¬ 
sprache  am  Ende  des  Buches, 
der  eigentlich  überflüssig  ist,  da 
sich  die  Adressaten  des  Buches, 
die  noch  ihre  Anfangsschwierig¬ 
keiten  mit  PEEK  und  POKE  über¬ 
winden  müssen,  sicherlich  nicht 
in  der  Lage  sehen,  auch  schon  in 
Maschinensprache  einzustei¬ 
gen. 

Insgesamt  sicher  ein  empfeh¬ 
lenswertes  Buch,  bei  dem  auch 
der  wichtige  Speicherbele¬ 
gungsplan  zum  C  64  nicht  fehlt. 


(Karsten  Schramm) 


Liesert,  Peeks  &  Pokes  zuta  Commodore  64 
Data  Becker  1984,  150  Seiten,  29  Mark 
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TIPS  &  TRICKS 


C64 _ Z 


Auf  das  »ü<*  kommt  es  an 

Das  folgende  Programm  wurde  aus  der  Not  geboren. 

Es  erleichtert  das  Laden  von  Diskette  und  macht  das  umständliche  Laden 

und  Listen  des  Directory  überflüssig. 

Nebenher  lernen  Sie  eine  Reihe  nützlicher  Maschinenroutinen  kennen. 


Geht  es  Ihnen  auch  so:  Ich  weiß  nie  genau,  ob  das  Pro¬ 
gramm,  das  ich  laden  willl,  nun  »Disk  Copy  V  1.0«  oder  »Disk 
Copy  VI  .0«  heißt.  Versuche  ich  es  mit  »Disk  * «,  lade  ich  mit  Si¬ 
cherheit  »Disk  Monitor«. 

Es  hilft  also  nichts:  Ich  lade  das  Directory,  liste  es  und  —  är¬ 
gere  mich,  weil  das  Programm,  das  ich  laden  wollte,  ganz  oben 
steht  und  beim  Scrollen  verschwindet.  Also  nochmal  »LIST«, 
dann  mit  dem  Cursor  in  die  richtige  Reihe  fahren,  »LOAD«  ein¬ 
geben,  Cursor  hinter  den  Programmnamen,  »,8«  eintippen.  Der 
Computer  antwortet  mit  einem  verächtlichen  »SYNTAX  ER¬ 
ROR«,  weil  ich  den  Doppelpunkt  mal  wieder  vergessen  habe... 

Vielleicht  stelle  ich  mich  besonders  dumm  an,  aber  es  sollte 
auch  anders  gehen.  Für  Tätigkeiten,  die  meine  geistigen  Fä¬ 
higkeiten  übersteigen,  gibt  es  doch  Computer!  Aus  diesem 
Gedanken  entstand  das  Programm. 

Es  wird  mit  »LOAD”! ”,8,1«  geladen,  startet  automatisch,  liest 
das  Directory  ein  und  schreibt  hinter  jedes  Programm  eine 
Nummer.  Wenn  der  Bildschirm  voll  ist,  wartet  es  auf  meine  Ein¬ 
gabe.  Tippe  ich  »+«,  bekomme  ich  die  nächsten  Programme 
angezeigt.  Tippe  ich  aber  die  Programmnummer  und  dahinter 
ein  »L«,  wird  das  entsprechende  Programm  automatisch  ge¬ 
laden.  Handelt  es  sich  um  ein  Maschinenprogramm,  das  abso¬ 
lut  geladen  werden  muß  (mit  »,8,1«),  tippe  ich  hinter  die 
Nummer  ein  »A«. 


So  funktioniert  es 


Da  ich  nicht  auf  einen  Autostart  verzichten  wollte,  mußte  das 
Programm  vollständig  in  Maschinensprache  geschrieben  wer¬ 
den.  Außerdem  mußte  es  sehr  kurz  sein,  denn  ich  hatte  nur 
den  Bereich  von  Speicherstelle  256  bis  600  ($0100  — 
$0258)  zur  Verfügung.  Zu  allem  Unglück  benötigen  die  Be¬ 
triebssystemroutinen,  die  das  Programm  verwendet,  auch 
noch  Platz  in  diesem  Bereich  (Prozessorstack).  Deshalb  muß¬ 
te  ich  auf  alles  verzichten,  was  nicht  unbedingt  nötig  war.  Es 
gibt  also  kein  Menü  für  den  Benutzer,  ebenso  keine  Möglich¬ 
keit,  das  Programm  zu  unterbrechen,  wenn  man  nichts  laden 
will.  Man  kann  nur  »OL«  eingeben,  dann  springt  es  mit  einer 
Fehlermeldung  ins  Basic  zurück.  Trotzdem  ist  der  verfügbare 
Speicher  bis  auf  das  letzte  Byte  belegt. 

Die  folgende  Programmbeschreibung  ist  zwangsläufig  sehr 
theoretisch.  Das  Programm  läuft  ja  aber  auch,  wenn  man  sie 
nicht  versteht.  Machen  Sie  sich  aber  ruhig  einmal  die  Mühe. 
Vielleicht  können  Sie  doch  den  einen  oder  anderen  nützlichen 
Tip  bekommen.  Wem  es  zu  kompliziert  wird,  der  kann  bei  den 
»Hinweisen  zum  Abtippen«  weiterlesen. 

Nehmen  Sie  also  das  Assembler-Listing  zur  Hand  und  folgen 
Sie  mir  in  die  Tiefen  der  Maschinensprache...  Zur  besseren 
Übersicht  habe  ich  die  einzelnen  Teile  beschrieben  und  immer 
die  entsprechenden  Zeilennummern  dahintergesetzt. 


Im  Programmkopf  bis  Zeile  320  werden  die  Betriebssystem¬ 
routinen  und  die  Variablen  definiert.  Sie  sind  nochmals  im  Ka¬ 
sten  erläutert.  Als  Startadresse  wird  $01 OA  festgelegt,  der 
Maschinencode  kann  aber  nicht  direkt  dorthin  assembliert 


10  FORI =491621049495: READA: POKEI ,  A: S=S+A 
20  NEXT: IFS< >35775THENPR INT "FEHLER  IN  DA 
TAS" : STOP 

30  PRINT  "LjBITTE  LEGEN  SIE  EINE  NEUE  DISK 
ETTE  EIN.  KJDI5KETTE  WIRD  FORMATIERT  !  " 

40  GET : I FA$= " " THEN40 
50  OPEN  1  ,  8  ,  1 5  ,  "  N0 :  MENU  ,  MN "  :  CLGSE 1 
60  PRINT  "UmSF OKE43 , 0:  P0KE44 , 192:  P0KE45  , 
90: P0KE46 , 193” 

70  PRINT"E£SÖSAVE"  CHR$  (34  )  "  !  "CHR$  (34)  "  ,S" 
S0  PRINT"®" ; 

90  F0RI=631TÜ641: POKEI , 13: NEXT: POKEI 9B, 1 
0 

DATA165, 43, 133,57, 165,44, 133,58. 169, 
13,32,210,255, 160,0,177,57,133,59,200 
110  DATA 177, 57, 133,60,200,177,57, 170,200 
,177,57,32,205, 189,160,3,200, 177,57 
120  DATA240, 5, 32, 210, 255, 208, 246, 165,59, 
133,57,165,60, 133,58,160,1, 177,57,240 
130  DATA23, 169,27, 133,21 1 , 169,0, 166,251 , 
32,205,189,230,251,230,253,165,253 
140  DATA201 ,21 , 144,183,169,128,133,254, 1 
69,13,32,210,255,162,0,32,207,255,157 
150  DAT A64 , 3 , 232 ,201,13, 208 , 245 , 202 , 202 , 
189,64,3,201,43,200,12,169,0, 133,253 
160  DATA36 , 254 , 48 , 144 , 133,251 ,16,132,201 
,76,203,6, 169,0, 133,252,240,8,201 ,65 
170  DATA20B, 208, 169, 128, 133,252,202, 189, 
64,3,41,15,133,251 ,202,48,16,189,64 
180  DATA3 ,41 ,15,170,24,165,251,105,10,13 


3,251 ,202,208,247 ,166,251 ,24,165,43 
190  DATA105, 35, 133,57, 165 ,44 , 133 , 58 , 232 , 
240 ,111,24,165,57,105,32,133,57,144 
200  DATA244 , 230 , 58 , 176,240,36,2,2,2,2,2, 

210  DATA2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 
2,2,2,2,2,2,2,2,2,2,2,169,1, 162,208 


220  DATA 160 , 1 ,32, 189,255, 162,8,160,0,32, 
186,255,152,133,253,133,251 , 166,43 
230  DATA 164 , 44 , 32,213 , 255 , 32,51 , 165,76, 1 
0,1,160,0, 177.57,201,34,240,3,200,208 
240  DATA247, 152,96,32,37,2,56, 101 ,57,133 


,57,32,37,2,166,57,164,58,32,139,255 
250  DATA169 , 1 ,162,8,160,0,132,10,36,252, 
16,2,160,1,32, 186,255,76,111 ,225 
READY. 


Listing  »Lader« 
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werden,  sonst  würde  ja  der  Autostart  anlaufen.  Deshalb  wird 
er  zunächst  in  den  Bereich  $COOA  —  $C158  geschrieben. 

Das  Programm  selbst  beginnt  mit  Zeile  1510.  Die  Routine 
»DIRIN«  lädt  das  Directory  in  den  Speicher.  Dazu  benutzen  wir 
die  Betriebssystemroutine  »LOAD«.  Diese  braucht  zur  Vorbe¬ 
reitung  die  Routinen  SETLFS  und  SETNAM.  SETLFS  be¬ 
stimmt  die  logische  Filenmmer  (01),  die  Geräteadresse  (08) 
und  die  Sekundäradresse  (0  für  Lesen).  SETNAM  übergibt 
den  Filenamen,  in  unserem  Falle  »$«.  LOAD  muß  schließlich 
noch  wissen,  wohin  das  Directory  geladen  werden  soll.  Diese 
Adresse  (Anfang  des  Basic-Speichers,  steht  in  ($2B/$2C) 
wird  im  X-  und  Y-Register  übergeben.  Um  die  richtigen  Koppel¬ 
adressen  zu  erhalten,  muß  anschließend  noch  die  Basic- 
Routine  aufgerufen  werden,  die  das  für  uns  erledigt  (SA533). 
Jetzt  steht  unser  Directory  genauso  im  Speicher  wie  sonst 
und  wartet  darauf,  auf  dem  Bildschirm  ausgegeben  zu  werden. 


Alle  Programme  sind  durchnumeriert 


PRUEF SUMMENL I STE 
BLOCKGRGESSE  20 


ZEILE 

ANZAHL 

SUMME 

KEIN  POKE? 

100 

20 

2263 

120 

40 

4991 

130 

60 

7435 

140 

80 

10735 

150 

100 

13594 

160 

120 

16221 

170 

140 

19025 

180 

160 

21080 

190 

180 

23840 

200 

200 

26287 

200 

220 

26327 

210 

240 

26367 

220 

260 

27732 

230 

280 

30452 

240 

300 

32441 

250 

320 

34281 

GESAMT 

334 

35775 

Prüfsummen  »Lader« 


Die  Ausgabe  kann  aber  nicht  wie  beim  normalen  Listen  erfol¬ 
gen,  denn  wir  wollen  ja  hinter  jedem  Namen  eine  Nummer  aus¬ 
geben.  Also  müssen  wir  das  selbst  in  die  Hand  nehmen.  Mit 
einem  kühnen  Sprung  geht  es  deshalb  jetzt  nach  DIROUT.  Se¬ 
hen  wir  uns  nun  den  Speicherausdruck  eines  Directory  etwas 
genauer  an: 

Es  geht  los  bei  $0801 .  Dort  steht  die  Adresse  des  nächsten 
Eintrages  $081 F.  Wie  immer  steht  im  Speicher  zuerst  das 
Lew-Byte  und  dahinter  das  High-Byte.  Es  folgt  der  Disketten¬ 
name,  der  in  diesem  Falle  mit  dem  des  Verfassers  auffallend 
übereinstimmt.  Der  erste  Eintrag  beginnt  also  mit  Adresse 
$081 F.  Dort  finden  wir  wieder  die  Adresse  des  nächsten  Ein¬ 
trages  ($083F).  Jeder  Eintrag  hat  übrigens  die  gleiche  Länge, 
nämlich  32  Byte.  Wir  werden  davon  später  noch  Gebrauch 
machen. 

Die  2  Byte  hinter  der  Koppeladresse  enthalten  die  Länge 
des  Programms  in  Blöcken,  in  unserem  Falle  also  $0002.  Nun 
kommen  ein  paar  Leerzeichen  ($20).  Wieviele,  hängt  davon 
ab,  ob  die  Blocklänge  ein,  zwei  oder  drei  Ziffern  benötigt.  Die 
Namen  sollen  ja  beim  Listen  schließlich  ordentlich  untereinan¬ 
der  stehen.  Jetzt  folgt  der  Filename,  von  Anführungszeichen 
eingeschlossen.  Sie  haben  es  sicher  schon  bemerkt:  Das  Di¬ 
rectory  dieser  Diskette  hat  als  erstes  Programm  das  »!«  wie 
sich  das  für  anständige  Disketten  gehört! 

Jetzt  wieder  einige  Leerzeichen  und  schon  ist  der  nächste 
Fileeintrag  erreicht.  Das  geht  so  weiter  bis  eine  Koppeladres¬ 
se  erreicht  wird  ($089D  in  Adresse  $087F),  die  aus  dem  Rah¬ 
men  fällt.  In  Adresse  $089D  stehen  nämlich  zwei  jämmerliche 
Nullen.  So,  sagt  sich  das  Betriebssystem,  jetzt  ist  aber  Schluß. 
Und  c  nat  wie  so  oft  recht... 

Zurück  zu  unserem  Programm.  Es  soll  ja  jetzt  ein  Directory 
auf  den  Bildschirm  ausgeben,  und  zwar  schöner,  als  es  das 
Betriebssystem  jemals  könnte.  Wir  initialisieren  also  unsere 
Variable  USE  mit  dem  Basic-Anfang  ($0801).  In  Zeile  390  be¬ 
ginnt  eine  Schleife,  die  immer  eine  Zeile  ausgibt.  Zuerst  holen 
wir  uns  die  Koppeladresse  und  speichern  sie  in  NEXT  (Zeile 
410  —  460).  Als  nächstes  müssen  wir  die  2  Byte  mit  der 
Blocklänge  in  eine  ordentliche  Dezimalzahl  umwandeln.  Das 
erledigt  für  uns  die  Basic-Routine  »NUMOUT«  (470  —  520). 
Jetzt  brauchen  wir  nur  noch  den  Namen  mit  allen  Leerzeichen 
davor  und  dahinter,  auszugeben  (530  —  580). 

Eigentlich  müßte  nun  die  Programmnummer  ausgegeben 
werden,  aber  damit  warten  wir  noch.  Aus  folgendem  Grund: 
Wir  wollen  diese  Schleife  ja  für  jede  Zeile  benützen,  auch  für 
die  letzte.  In  der  steht  aber  die  »BLOCKS  FREE«-Meldung  und 
dahinter  darf  ja  keine  Nummer  mehr  erscheinen.  Wir  müssen 
also  vorher  prüfen,  ob  wir  schon  die  letzte  Zeile  erreicht  ha¬ 
ben. 

Dazu  übertragen  wir  die  Adresse  des  nächsten  Files,  die  wir 
in  NEXT  aufbewahrt  haben,  nach  USE.  Zeigt  USE  jetzt  auf  eine 
Null,  sind  wir  fertig  und  springen  ans  Ende  unserer  Routine, 
nach  DIR4  (590  —  650).  Ist  das  aber  noch  nicht  der  Fall,  ge¬ 
ben  wir  unsere  Programmnummer  aus.  Den  Cursor  stellen  wir 
dazu  auf  Spalte  27  ($1B)  und  benutzen  wieder  NUMOUT,  um 
FILENR  als  Dezimalzahl  auszugeben  (660  —  700).  Eine  Zeile 
wäre  geschafft!  Im  folgenden  bereiten  wir  uns  auf  die  nächste 
Filenummer  vor  und  springen  wieder  nach  oben  zu  DIR1  zu¬ 
rück.  Sollten  aber  schon  20  Zeilen  auf  dem  Bildschirm  stehen, 
merken  wir  uns  im  ENDFLG,  daß  wir  noch  nicht  fertig  sind  und 
verlassen  die  Ausgaberoutine  vorerst.  Erinnern  Sie  sich,  wir 
wollten  vermeiden,  daß  der  Bildschirm  ohne  unseren  aus¬ 
drücklichen  Befehl  wegscrollt  (710  —  800). 
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Der  Bildschirm  hat  sich  inzwischen  gefüllt,  unsere  Nummern 
stehen  fein  säuberlich  hinter  den  Programmen,  nun  sollte  uns 
ein  freundlich  blinkender  Cursor  dazu  animieren,  dem  Compu¬ 
ter  mitzuteilen,  wie  es  weitergehen  soll.  Also  hinein  in  die  Rou¬ 
tine  WAHL 

Das  Wichtigste  erledigt  hier  die  Betriebssystemroutine 
CHRIN.  Sie  läßt  den  Cursor  blinken,  bis  »RETURN«  gedrückt 
wird,  schreibt  die  eingegebenen  Zeichen  auf  den  Bildschirm 
und  liest  sie  anschließend  vom  Bildschirm  wieder  ab,  damit  wir 
sie  schön  der  Reihe  nach  bearbeiten  können.  Wir  speichern 
alle  Zeichen  zunächst  im  BUFFER  und  sehen  uns  dann  das 
letzte  Zeichen  genauer  an  (820  —  900).  Als  erstes  prüfen  wir, 
ob  ein  »+«  eingegeben  wurde.  Wenn  ja,  setzen  wir  FILEANZ 
wieder  auf  Null,  und,  je  nachdem  ob  das  ENDFLG  Ende  signali¬ 
siert  oder  nicht,  auch  die  FILENR.  Anschließend  erfolgt  der 
Rücksprung  in  die  Directory-Ausgabe  (910  —  980). 

Ö  TR  F?  TflDRES  Ö  EI 

10  OPEN 1,8,15 
20  OPEN2,-8,2,  "#  u 
30  PR  I  NT#  1  ,  *'  U  1  2  O  17  0  u 
40  PR  INT# 1 , “B-P  £  3” 

50  PR  I NT# 2 ,CHR^< 1  ) 

60  PR  I NT# 1  r " U2  2  0  17  0" 

70  CLOSE2: CLOSEI 
READY. 

Ändern  der  Startadresse.  Lesen  Sie  hierzu  die  »Hinweise 
zum  Abtippen«. 

Wurde  kein  » + «  eingegeben,  prüfen  wir  weiter  auf  »L«  bezie¬ 
hungsweise  »A«.  In  Abhängigkeit  davon  setzen  wir  das 
ABSFLG  (990  —  1070).  Jetzt  müssen  wir  herausfinden,  wel¬ 
che  Programmnummer  geladen  werden  soll.  Dazu  müssen  wir 
die  ein  oder  zwei  Dezimalzahlen  in  ein  Hexbyte  umwandeln, 
weil  unser  Computer  nun  mal  nichts  anderes  versteht.  Ande¬ 
rerseits  ist  es  ja  nicht  einzusehen,  daß  wir  uns  auf  sein  mathe¬ 
matisches  Niveau  herabbegeben  und  unsere  Zahlen  dem¬ 
nächst  als  Hex-  oder  noch  schlimmer  als  Binärzahlen  einge¬ 
ben.  Das  Umwandeln  ist  ja  gar  nicht  so  schwierig.  Wir  holen 
uns  die  Einerziffer  und  zählen  dann  so  oft  10  (SOA)  dazu,  wie 
die  Zehnerziffer  angibt.  Da  der  Computer  sich  unsere  Ziffern 
aber  nicht  als  0,1. ..9  merkt,  sondern  als  S30,  $31...  $3A,  müs¬ 
sen  wir  jeweils  die  oberen  4  Bits  ausmaskieren.  Das  war’s 
denn  auch  schon.  In  FILENR  steht  zur  Belohnung  tatsächlich 
die  gewünschte  Filenummer  mundgerecht  für  unseren  Com¬ 
puter  (1080  —  1200). 

Jetzt  haben  wir  das  Schlimmste  —  fast  —  hinter  uns.  Wir 
brauchen  nur  noch  den  passenden  Filenamen  zu  suchen.  Den 
holen  wir  uns  aus  dem  Directory.  In  bewährter  Weise  benutzen 
wir  unsere  Variable  USE.  Um  den  Diskettennamen  zu  überle¬ 
sen,  zählen  wir  zum  Basic-Anfang  in  $2B/$2C  35  ($23)  dazu. 
Damit  liegen  wir  so  ungefähr  richtig,  auf  jeden  Fall  vor  dem  er¬ 
sten  Namen.  Erinnern  sie  sich,  jeder  Eintrag  im  Directory  be¬ 
legt  genau  32  Byte.  Allerdings  beginnen  die  Filenamen  nicht 
immer  so  schön  regelmäßig  wie  in  unserem  Beispiel,  immer  an 
der  selben  Stelle.  Wir  müssen  den  Anfang  des  Namens  also 
noch  genau  suchen.  Vorher  brauchen  wir  aber  erst  einmal  die 
richtige  Stelle  im  Directory.  Wir  addieren  zu  USE  jetzt  daher  so 
oft  32  ($20),  wie  in  FILENR  angegeben  (1250  —  1400). 

Jetzt  müssen  wir  in  unserem  Programm  ein  Stück  übersprin¬ 


gen,  weil  die  folgenden  Bytes  wegen  des  Autostarts  auf  2  ge¬ 
setzt  werden  müssen.  Weiter  geht  es  mit  LAD2  in  Zeile  1 7 80. 
Vorher  steht  allerdings  im  Programm  noch  die  Subroutine  FIN- 
DA.E,  was  so  viel  wie  »Finde  den  Anfang  beziehungsweise  das 
Ende  des  Namens«  bedeutet.  Sie  durchsucht  den  Text,  auf 
den  USE  zeigt,  nach  einem  Anführungszeichen  und  übergibt 
im  Akku,  wieviel  Zeichen  es  bis  dahin  sind  (1680  —  1750). 

Diese  Zahl  addieren  wir  zu  USE  —  eins  mehr,  denn  das  An¬ 
führungszeichen  selbst  gehört  ja  nicht  mit  zum  Namen.  Mit 
FINDA.E  erhalten  wir  im  Akku  die  Länge  des  Namens,  so  wie 
es  die  Routine  SETNAM,  die  wir  oben  schon  benutzt  haben, 
verlangt.  Noch  ein  kurzer  Sprung  nach  SETLFS,  wo  wir  in  Ab¬ 
hängigkeit  vom  ABSFLG  als  Sekundäradresse  Null  oder  Eins 
übergeben.  Den  Rest  erledigt  die  Basic-Routine  BASICLOAD 
(1780—  1940).  Geschafft,  die  schönste  Zeile  im  Assemblerli- 
sting  ist  erreicht:  .EN  heißt  ENDE. 

Sicher,  es  war  nicht  ganz  einfach,  aber  wenn  Sie  mir  bis  hier¬ 
hin  gefolgt  sind,  haben  Sie  eine  ganze  Reihe  kleiner  Routinen 
gelernt,  wie  sie  in  jedem  Maschinenprogramm  gebraucht  wer¬ 
den. 

NUMOUT  (SBDCD)  —  wanüelt  zwei  Hexbyies  in  eine  Dezimalzahl  um  und 
gibt  sie  aus.  (HByte  im  Akku,  LByte  im  X-Reg) 

SETLFS  (SFFBA)  —  übergibt  logische  Filenummer  (Akku).  Geräteadresse 
(X-Reg)  und  Sekundäradresse  (Y-Reg). 

SETNAM  (SFFBD)  —  übergibt  den  Filenamen.  Akku  enthält  die  Lange  des 
Namens.  X-Reg  das  LByte.  Y-Reg  das  HByte  der  Adresse,  an  der  der  Na¬ 
me  beginnt. 

LOAD  (SFFD5)  -  lädt  das  durch  SETLFS  und  SETNAM  bezeichnete  File 
an  die  Adresse,  die  im  X-Reg  (LByte)  und  im  Y-Reg  (HByte)  angegeben 
is;  Tr  Akku  enthält  0  für  LOAD  und  1  für  VERIFY. 

CHHin  (SFFCF)  —  holt  Zeichen  von  dem  in  $99  festgelegten  Eingabegerät. 
Der  Cursor  blinkt,  bis  RETURN  eingegeben  wird.  Die  Zeichen  werden 
dann  vom  Bildschirm  gelesen  und  im  Akku  übergeben. 

CHROUT  ($FFD2)  —  gibt  das  ASCII-Zeichen  im  Akku  aus. 

Variable 

BUFFER  —  ist  ein  Zwischenspeicher 

USE  und  NEXT  —  enthalten  die  Adresse  des  gegenwärtigen  beziehungs¬ 
weise  nächsten  Directory- Eintrages. 

FILENR  —  ist  die  aktuelle  Filenummer  im  Directory. 

ABSFLG  —  ist  ein  Flag,  das  normales  oder  absolutes  Laden  signalisiert. 
FILEANZ  —  enthält  die  Anzahl  der  auf  dem  Bildschirm  ausgedruckten  Fi¬ 
les. 

ENDFLG  —  ist  ein  Flag,  das  signalisiert,  ob  das  Ende  des  Directory  bereits 
erreicht  ist. 

Betriebssystem-Routinen 
Hinweise  zum  Abtippen 

Das  Programm  kann  nicht  an  die  Stelle  geschrieben  werden, 
an  der  es  endgültig  stehen  soll,  weil  sonst  ja  der  Autostart  an- 
laufen  würde.  Wir  schreiben  es  daher  zuerst  nach  49152 
($C000).  Tippen  Sie  zuerst  den  Basic-Lader  ein.  Nach  RUN 
muß  der  Text  aus  Zeile  30  erscheinen,  sonst  haben  Sie  einen 
Fehler  gemacht.  Legen  Sie  nun  eine  neue  Diskette  ein,  und 
drücken  Sie  eine  Taste.  Das  Programm  wird  nun  auf  die  Disket¬ 
te  geschrieben,  allerdings  mit  der  falschen  Startadresse. 
Schalten  Sie  danach  bitte  den  Computer  aus  und  wieder  ein. 
Um  die  falsche  Startadresse  zu  ändern,  geben  Sie  das  Pro¬ 
gramm  »Startadresse«  ein  und  starten  Sie  es  mit  RUN.  Jetzt 
wird  die  Adresse  geändert,  und  Sie  haben  das  »!« lauffähig  auf 
Ihrer  Diskette.  Um  es  auf  andere  Disketten  zu  übertragen,  ver¬ 
wenden  Sie  ein  Kopierprogramm,  zum  Beispiel  »Super  Copy«. 

Und  dann  lehnen  Sie  sich  zurück,  geben  LOAD  »!«,8,1  ein 
und  genießen  die  Früchte  Ihrer  Arbeit. 

(Dietrich  Weineck/rg) 
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0020?  ********************** 

1  100 

AND 

#$0F 

1  1  10 

STA 

♦FILENR 

00-10;*  LADE PROGRAMM  ! 

1  120 

DEX 

0050;*  MAI  1984 

1  130 

BMI 

LADEN 

0060;*  N. MANN 

&  D.U1E  INECK 

1  140 

LDA 

BUFFER  ,X 

0070.'*  FLEETRADE  40 

1  150 

AND 

#$0F 

008® : *  3800  BREMEN  * 

1  160 

TAX 

0090;*  TEL.  0421  /  493090 

CLC 

0100.:* 

1 1S0WAHL5 

LDA 

♦FILENR 

01  IO; ********************** 

1  190 

ADC 

#$0A 

0120; 

1200 

STA 

«FILENR 

0130; 

12  10 

DEX 

0 1 40NUMOUT 

.DE  $3DCD 

1220 

BNE 

U1AHL5 

0  150BAS ICLOAO 

•DE  $E16F 

1230; 

0 160SETLFS 

.DE  *FFBA 

1240; 

0 1 70SETNAM 

.DE  $FFBD 

1 250LAOEN 

LDX 

♦FILENR 

0190LOAD 

■DE  $FFD5 

1260 

CLC 

0 190CHRIN 

.DE  $FFCF 

1270 

LDA 

*$2B 

02B0CHROOT 

.DE  $FFD2 

1280 

ADC 

#*23 

32  10; 

1290 

STA 

♦USE 

0220 BUFFER 

.DE  *0343 

1300 

LDA 

*S2C 

0230USE 

.DE  339 

13  10 

STA 

*USE  +  1 

0240NE.VT 

.DE  *3B 

1320LAD 1 

DEX 

0250FI1.ENR 

.DE  SFB 

1330 

BEQ 

LAD2 

0260ABSFLG 

.DE  $FC 

1340 

CLC 

0270F ILEANZ 

.DE  SFO 

1350 

LDA 

♦USE 

02S0ENOFLG 

.DE  *FE 

1360 

ADC 

#*20 

0290; 

1370 

STA 

♦  USE 

0300 

■BA  *01 0A 

1330 

BCC 

LAD  1 

0310 

.MC  $C00A 

1390 

INC 

♦USE + 1 

0320 

.OG 

1400 

BCS 

LAD  1 

0330; 

14  10; 

0340; 

14e0; 

0350D  IROUT 

LDA  *$2B 

1 430TEXT 1 

.BY 

'  $ ' 

0360 

STA  *USE 

1440  • 

03?0 

1  DA  *$2C 

1450? 

0380 

STA  *USE* 1 

1460 

.BY 

2  2  2  2  2 

2 

22222222222 

2 

0390DIR 1 

LDA  #$0D 

1470 

■  BY 

2  2  2  2  2 

2 

22222222222 

2 

0400 

JSR  CHROUT 

1480 

.BY 

2  2  2  2  2 

o 

22222222 

04  10 

LDY  #*00 

1490; 

0420 

LDA  (USE ) ,  Y 

64SR 

1500! 

0430 

STA  *NEXT 

□r 

151675  IN 

LDA 

#$0  1 

0440 

IMY 

1520 

LDX 

#  L  ,  TE  X  T 1 

0450 

LDA  (use;,y 

1530 

LDY 

#H , TEXT  1 

0460 

STA  *NEXT+ 1 

1540 

JSR 

SETNAM 

0470 

1  NY 

1550 

LDX 

#$03 

0480 

LDA  (USE ) , Y 

1560 

LDY 

#$00 

0490 

TAX 

1570 

JSR 

SETLFS 

0500 

INY 

1580 

TYA 

05  10 

LDA  (USE ) ,Y 

1530 

STA 

*F ILEANZ 

0520 

JSR  NUMOUT 

1600 

STA 

♦  FILENR 

0530 

LDY  H*03 

1610 

LDX 

*$2B 

0340DIF.2 

INY 

1620 

LDY 

*$2C 

0550 

LDA  (USE ) , Y 

1630 

JSR 

LOAD 

0560 

BEQ  DIR3 

1640 

JSR 

$A533 

0570 

JSR  CHROUT 

1650 

JMP 

D IROUT 

0530 

BNE  DIR2 

1660; 

0590D  IR3 

LDA  *NEXT 

1670; 

0600 

STA  *USE 

1680F INDA . E 

LDY 

#$00 

0610 

LDA  *NEXT+1 

1690CMP 1 

LDA 

(USE Y 

0620 

STA  *USE  + 1 

1700 

CMP 

#$22 

0830 

LDY  #$01 

1710 

BEQ 

CMP2 

0640 

LDA  (USE  )  , Y 

1720 

INY 

0650 

BEO  DIR4 

0870 

BNE 

l-JAHL  1 

1730 

BNE 

CMP  1 

0660 

LDA  #$1B 

0380 

DEX 

1  74  0  C  MP  2 

TYA 

0890 

DEX 

1750 

RTS 

0670 

3 TA  *$03 

0300 

LDA 

BUFFER ,X 

1760; 

0680 

LDA  #$00 

0910 

CMP 

#  '  +  ' 

1770; 

0690 

LDX  *F  I  LEI'R 

0320 

BNE 

WAHL2 

1780LAD2 

JSR 

F I NOA  .  E 

0700 

JSR  NUMOUT 

0930 

LDA 

#*•■00 

1790 

SEC 

0710 

INC  *F I LENR 

0940 

STA 

*F ILEANZ 

1  800 

ADC 

♦  USE 

0720 

INC  *F ILEANZ 

0950 

BiT 

*EMDFLG 

1810 

STA 

*USE 

0730 

LDA  *F ILEANZ 

0960 

BMI 

D  IR  1 

1820 

JSR 

F I NOA . E 

0740 

CMP  #*15 

0970 

STA 

♦FILENR 

1830 

LDX 

♦USE 

0750 

BCC  D IR  1 

0980 

BPL 

DI  ROUT 

1840 

LDY 

*USE+ 1 

0760 

LDA  #$80 

0990UAHL2 

CMP 

#  1 L  ' 

1950 

JSR 

SETNAM 

0770D  IR4 

STA  *ENDFLG 

1000 

BNE 

WAHL3 

1860 

LDA 

#$0  1 

0780 

LDA  #$0D 

1010 

LDA 

#*00 

1870 

LDX 

#$09 

0790 

JSR  CHROUT 

1020 

STA 

♦ABSFLG 

1880 

LDY 

#$00 

0390; 

1030 

BEQ 

WAHL4 

•890 

STY 

*$0A 

0810; 

1040HAHL3 

CMP 

#  ‘  A  ' 

1303 

BIT 

♦ABSFLG 

0S20WAHL 

LDX  #*00 

1050 

BNE 

WAHL 

1310 

BPL 

LAD3 

0830WAHL 1 

JSR  CHRIN 

1060 

LDA 

#$80 

1920 

LDY 

#$01 

0840 

STA  BUFFER, X 

1NX 

1070 

1080WAHL4 

STA 

DEX 

*ABSFLG 

1 930LAD3 

1340 

JSR 

JMP 

SETLFS 

BASICLOAD 

Das  Assemblerlisting 

0860 

CMP  #S0D 

1090 

LDA 

BUFFER ,X 

1950 

.EN 

zum  Ladeprogramm 
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Spielen  in  der 

dritten  Dimension 

»3D-Vier  gewinnt«  ist  eine  interessan¬ 
te  Variante  des  bekannten  Strategie¬ 
spiels.  Bemerkenswert  ist  auch,  daß 
der  Autor  ohne  Steuerzeichen  ausge¬ 
kommen  ist. 


Bei  »3D-Vier  gewinnt«  setzen  die  beiden  Spieler  abwech¬ 
selnd  einen  Spielstein  auf  eines  der  16  Felder,  die  in  vier  Rei¬ 
hen  und  vier  Spalten  angeordnet  sind.  Hierbei  werden  Türme 
von  maximal  vier  Steinen  Höhe  gebildet.  Sieger  ist,  wer  als  er¬ 
ster  eine  beliebige  Reihe  oder  Diagonale  —  auch  Raumdiago¬ 
nale  —  mit  vier  Steinen  besetzt.  Sollten  zuvor  alle  64  mögli¬ 
chen  Felder  besetzt  sein,  so  geht  das  Spiel  unentschieden 
aus. 

Zum  Programm: 

Man  kann  wahlweise  gegen  einen  Spielpartner  oder,  bei  un¬ 
terschiedlicher  Spielstarke,  gegen  den  Computer  antreten. 
Der  Computer  benötigt  hierbei,  obwohl  das  Programm  in  rei¬ 
nem  Basic  geschrieben  ist.  weniger  als  zehn  Sekunden  Be¬ 
denkzeit.  Es  ist  auch  möglich,  den  Computer  sich  selbst  zu 
überlassen.  Das  Programm  übernimmt  die  dreidimensionale 
Darstellung,  überwacht  die  Korrektheit  der  Züge  und  ermittelt 
den  Sieger. 

Während  des  Spieles  kann  man  sich  jederzeit  vom  Computer 
einen  Zugvorschlag  holen,  der  allerdings  mit  Vorsicht  zu  genie¬ 
ßen  ist  (da  Spielstarke  1  voreingestellt  ist)  und  auf  Wunsch  die 
Seiten  wechseln.  Alle  nötigen  Eingaben  werden  im  Dialog  er¬ 
fragt.  Bleibt  nur  zu  erklären,  wie  man  einen  Zug  ausführt:  Wäh¬ 
rend  des  Spieles  ist  in  der  linken  Bildschirmhälfte  die  dreidi¬ 
mensionale  Darstellung  des  Spielfeldes  zu  sehen.  Rechts  er¬ 
scheint  in  schematisierter  Form  eine  Draufsicht  auf  das  Spiel¬ 
feld,  wobei  in  deren  unteren  linken  Ecke  ein  Cursor  erscheint. 
Dieser  läßt  sich  nun,  entweder  mit  einem  Joystick  in  Port  2  oder 
mittels  der  Cursortasten  an  die  gewünschte  Position  dirigie¬ 
ren.  Drückt  man  nun  den  Feuerknopf  beziehungsweise  die 
Return-Taste,  wird  der  gewünschte  Zug  —  sofern  er  den  Re¬ 
geln  entspricht  —  ausgeführt. 

Bei  Spielende  ertönt  eine  kleine  Melodie,  und  das  Programm 
verdeutlicht  durch  Blinken  der  entsprechenden  Spielsteine  die 
Gewinnsituation.  Außerdem  wird  der  Name  des  Siegers  ange¬ 
zeigt.  Durch  Drücken  einer  beliebigen  Taste  startet  man  ein 
neues  Spiel. 

Detailbeschreibung  —  Spielstrategie: 

Jedes  Feld  ist  durch  eine  x-,  y-  und  z-Koordinate  eindeutig 
bestimmt.  Damit  der  Computer  etwas  zu  rechnen  hat,  wird  je¬ 
dem  möglichen  Zustand  der  einzelnen  Felder  ein  Zahlenwert 
zugeordnet,  der  im  dreidimensionalen  Feld  FE  gespeichert 
wird.  Hierbei  bedeutet 
3  =  das  Feld  ist  von  Spieler  2  besetzt 
2  =  das  Feld  ist  von  Spieler  1  besetzt 
1  =  das  Feld  ist  unbesetzt,  kann  aber  im  nächsten  Zug  besetzt 
werden 

0  =  unbesetztes  Feld 
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Ist  der  Computer  am  Zug  oder  wird  ein  Zugvorschlag  ge¬ 
wünscht,  geschieht  folgendes:  Der  Computer  berechnet  für 
jedes  mögliche  Feld  (FE(X,Y,Z)  =  1)  eine  Bewertung  (im  Pro¬ 
gramm  ab  Zeile  2000)  und  entscheidet  sich  dann  für  das  Feld 
mit  der  höchsten  Bewertung.  Mit  einem  kleinen  Trick  wurde 
der  Zeitaufwand  hierfür  minimiert:  Für  die  Entscheidung,  ob 
ich  in  die  linke  untere  Ecke  setze,  ist  es  unwesentlich,  wie  es 
rechts  oben  aussieht.  Das  Programm  bewertet  also  jede  Vie¬ 
rerreihe  getrennt  und  ermittelt  die  Bewertung  eines  Feldes  als 
Summe  der  Bewertungen  aller  Viererreihen,  an  denen  dieses 
Feld  beteiligt  ist.  Der  große  Zeitvorteil  ergibt  sich  jetzt  dadurch, 
daß  r.?ch  jedem  Zug  nur  einfach  jene  Reihen  neu  bewertet 
werden  müssen,  in  denen  sich  wirklich  etwas  geändert  hat  (ab 
Programmzeile  2500). 

Bei  der  Spielstarke  2  wird  im  Gegensatz  zur  Spielstärke  1 
mit  berücksichtigt,  daß  das  darüberliegende  Feld  im  nächsten 
Zug  vom  Gegner  besetzt  werden  kann.  Deshalb  wird  dieses 
Feld  (mit  negativem  Vorzeichen)  ebenfalls  bewertet.  Dadurch 
verdoppelt  sich  allerdings  die  Bedenkzeit  bei  Spielstärke  2. 

In  den  Programmzeilen  3010,  3100  und  3180  steht  der  Auf¬ 
ruf  »SYS  58732«.  Hierbei  handelt  es  sich  um  eine 
Betriebssystem-Routine,  die  nach  der  Cursorpositionierung 
(durch  Setzen  der  Speicherstellen  211  und  214)  die  Bild¬ 
schirmparameter  neu  bestimmt. 

(Uwe  Weiß/rg) 


Variablenliste  von 

»3D-Vier  gewinnt« 

ZG 

Zahl  der  durchgeführten  Züge 

PL 

aktueller  Spieler 

GW 

Gewinnsituation 

X,Y,Z 

Zugkoordinaten 

X0,Y0 

Bildschirmkoordinaten 

D1,D2,D3,D4 

Bewertung  Raumdiagonalen 

BL$ 

40  Leerzeichen  (Blanks) 

Feldvariablen: 

FE 

Speicherung  des  gesamten  Spielfeldes 

BE 

Höhe  der  Türme/besetzte  Felder 

BW 

Gesamtbewertung  der  Felder 

RX,RY,RZ 

Bewertung  Viererreihe  in  x,y,z-Richtung 

OX,OY,OZ,UYUZ 

Bewertung  Flächendiagonalen 

w$,x$ 

3dim.  Darstellung  der  Spielsteine 

SP$ 

Spielemamen 

co$ 

Farbe  der  Steine 

CL$ 

dto.  für  Blinken  bei  Spielende 

SS 

Spielstärke 

Ausgabe  1 2  /Dezember ,  1^84  e 
64er-online.net 


'  , !;  •  f,  f, ,  *  5  j ,  \ , 


^Ä^Ä^Ä-h- 

r<.  $$  $$  c|  'M 


mmm 


Wfmmfim 

ff 

%h)  fffltffflWimm^  }fl 


■  ■  ■  • 

. 


■I, !  '-. 
V.-üi-f-  ‘ 


sowie. ne 


oniine.net 


-64e 


So  sieht's  auf  den  Bildschirm  aus 


1500 

120 

130 

3500 

150 

2000 


2500 


Schematische  Darstellung  von  »3D-Vier  gewinnt« 


Listing  »3D-Vier  gewinnt« 


13  REM 

11  REM 

12  REM 

13  REM 

14  REM 

15  REM 

16  REM 

17  REM 

18  REM 

19  REM 

20  REM 

21  REM 

22  REM 

23  i 

24  : 

25  : 

26  : 


*  * 

*  3D— VIER-GEWI NNT  * 

*  -* 

*  1984  BY  * 

*  * 

*  UWE  WEISS  * 

*  LOESKENWEG  60  * 

*  4300  ESSEN  1  * 

*  * 

*  TEL  0201/326366  * 

*  * 


I FK= 1 33THEN350 : REM  ZUGVORSCHLAG 
I FK= 1 34THEN360: REM  SE I TENWECHSEL 
I F ( K= 1 3 ) OR ( ( J AND 1 6  > =0 ) THEN320 
IF ( K= 1 45 ) OR ( ( JAND1 ) =0) THEN I F Y< 3THENY 

=Y+1 

2S0  I F (K= 17) OR ( < JAND2) =0) THENIFY>0THENY= 
Y-l 


290  I F ( K= 1 57 ) OR ( ( JAND4) =0 ) THENIFX >0THENX 
=X— 1 

300  IF ( K=29 ) OR ( < JAND8) =0) THENIFX<3THENX= 
X+l 

310  GOTO180 

320  I FBE ( X  ,  Y ) =4THEN220 

330  GOSUB2500 : REM  ZUG  AUSFUEHREN 

340  GOTO120 

350  POKEA 1 , 32 : GOSUB2000 : X=ZX: Y=ZY: GOTO 18 
8 


28  : 

29  : 

30  : 

138  SOSUB 1 503 :  F;EM  INITIALISIERUNG 
113  ZG=0:PL=3: GW=0 
123  PL=5-PLs ZS=ZB+1 

130  I F ( GW< >0 ) OR ( ZG >64) THEN3503 : REM  SPIEL 
ENDE 

143  PRINTCOif- (PL)  :GOSUB3100 
141  H= ( 20— LEN ( SPS ( PL ) ) ) /2: X0=1: Y0=24 
145  X*=LEFT$  CBL£,H)  +SP*  (PL)  +LEFTT-  (BLf- ,  10 
) : GOSUB30 1 0 : PR I NTCHR$ (19) 

158  IFSP*(PL)=UC  64"THEN500 
168  REM  ***  SPIELERZUG  *** 

178  X=0: Y— 8: A3=1575 
183  A 1 = 1 575+2* X— 80* Y 

230  POKEA0 , 32 : A0=A 1 

210  POKEA 1 , 160: FQKEA 1+54272 , CO (PL) 

220  J=F'EEK  (56320)  AND31 
230  GETKS : K=ASC ( K$+CHR$ <  0 ) ) 

235  IF (K=0) AND ( J=31 ) THEN220 


360  SP$=SP$ ( 2 ) : SP* ( 2 ) =SP* ( 3 ) : SP* ( 3 ) =SP* : 
GOTO 140 

500  REM  ***  COMPUTERZUG  *■** 

510  GOSUB2800 

520  X=ZX : Y=ZY 

530  AD=1575+2*X-88*Y 

540  POKEAD  ,  160:  F'OKEAD+54272  , CO  (PL) 

550  GOSUB2500 : POKEAD , 32 
560  GOTO 120 
1580  IFRU=1 THEN 1645 
1505  RU=1 

1510  DIMFE (3,3,3) , BE (3,3) ,BW<3,3) ,W(3,3) 

1511  DIMRX (3,3) , RY (3,3) , RZ (3 , 3) , MX { 1 5) 

1512  DIMUX (3) ,UY<3> ,UZ(3) ,OX(3) ,0Y(3) ,OZ 
(3) 

1513  DI  MX* (3) ,W*(3> ,SP*(3> ,CO* (3) ,CL*(3> 

1514  DI MX (3) , Y (3) ,Z (3) ,SS(3) ,00(3) 

1515  H8*=CHR*  (13)  +  "F" 

1516  H1*=CHR*(17)+CHR*  ( 157) 

1517  H2*=H 1 *+CHR* (157) +CHR* (157) 

1518  H3*=CHR*  (  1 46 )  +  "  F  " 

1520  W*(8)=H0*+H1*+"|  "+Hl*+!,i  _"+H3* 
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1525  WT(1)=H0T+H1T+”  "+H1T+"  "+H3T 


1530 

3T 

WT  (2)  =H0T-t-  "| 

"+H2T+"! 

1 _ "+H2T+"L. 

_”+H 

1535 

WT (3) =H0T+"! 

"+H2T+" 

•  "+U21+« 

"+H 

3$ 

1536  XT(B)=WT(3> 

1537  FGRI=1T03: XT(I)=WT<2)  :  NEXT 

1 53?  PR I NTCHRT (147): P0KE532S3 , 0 : PCKE532S 
1,12 

1540  PRINTCHRT (19) CHRT (iS) CHRT (144)  ; 

1545  EL$=" 

1550  PRINTLEFTT (BLT ,12) "3D-V IER-GEWINNT" 
LEFTT  (BL»,  13) 

1555  PR I NT : PRINT : PR I NT: PR I NT "  BITTE  WftEH 
LEN  SIE:  " 

1560  PRINT : PRINT"  1  =  SCHWARZWEISSFERN3E 
HER" 

1565  PRINT: PRINT"  2  =  FARBFERNSEHER" 

1 570  GETKT- : K=VAL ( KT ) 

1 575  ONKGDTO 1 535 , 1 605 
15S0  GDTO1570 

1535  COT ( 2 ) =CHRT ( 5 ) : COT (3 ) =CHRT (144) 

1590  CLT (2) =CHRT ( 155) : CLT (3) =CHRT (151) 
1595  CO (2) =1: CO (3) =0 
1600  GGTO1620 

1605  COT (2) =CHRT (28) : COT (3) =CHRT (31 ) 

1610  CLT-  ( 2 )  =CHRT  ( 150)  :  CLT-  (3)  =CHRT  (154) 

1615  CO (2) =2: CO (3) =6 

1620  SPT (2) ="C  64" : SPT (3) ="C  64" 

1625  3=54272: POKES+23, 1 13: POKES+24,31 
1 630  POKES+2 , 0 : P0KES+3 , S : POKES+4 , 0 
1635  POKES+5 ,21: POKES+6 , 240 
1640  GOTO1670 

1645  BPT=SPT (2) : SPT (2) =SPT (3) :SPT (3) =SPT 

1650  FORI=0TO3: FORJ=0TO3 

1655  BE ( I , J) =0 

1660  FORK= 1 T03 : FE (I , J , K ) =E 

1665  NEXTK , J , I 

1670  PR I NTCHRT  (  i 47 )  CHRT  (IQ)  CHRT-  ( 1 44 )  ; 

1 675  PR I NT "Fl: ZUGVORSCHLAG " ; LEFTT ( BLT , 9 ) 

; "F3: SEITENWECHSEL" 

1680  PR I NTCHRT (5) 

1685  F0RI=1T04 

1690  PRINT: PR INT: PR INT 

1695  PRINT"  j — 1  1 — 1  i — |  FT1 

1700  PRINT"  1 1  | I  LJ  i T-.NEXT 

1705  F0RI=2T03 
1710  PR I NTCHRT (19) 

1715  PRINTCOTCI) "SPIELER"; 1-1; "  "SPT(I) 

;  BLT 

1720  PRINTCHRT ( 145) CHRT ( 145) ; SRC (9) "  " ; 
1725  INPUTSPT-  ( I ) 

1730  SS ( I ) = 1 

1735  IF3PT ( I ) < >"C  64 " THEN1755 
1740  PR I NT " SP I ELST AERKE  1/2” 

1745  GETKT-:  IFKT="2"THENSS  ( I  )  =2:  GGTG1755 
1 750  I  FKT-i  >  "  1 "  THEN 1 745 
1755  PRINTCHRT (19) 

1760  PRINTLEFTT (ELT ,30) : PRINTLEFTT (BLT, 3 
S  5 

1765  NEXT 

1770  FORI=0TO3:FORJ=0TO3 

1775  RX (I , J ) = 1 / 1 6 : RY ( I , J ) = 1 / 1 6: RZ ( I , J  >  = 1 

/B: FE ( I , J ,0) =1 
1780  NEXT: NEXT 
1785  FORI— 0TQ3 


1790  RX (I,S)=1: RY ( I ,0) =1 
1795  UX ( I ) =1 /B: UY ( I >  =1 /S: UZ (I>=1/ 1 6 
1800  OX ( I >  =1/8: OY ( I ) =1/8: GZ ( I ) =1/ 16 
1805  NEXT 

i  c  i  rs  i  it  f  S3I *  —  i  .n7  fai-i 

iUl<U  Ui.  VtiiT  -  i  ■  Ui.  ’.fc'f  “1 

1815  Dl=i/S: D2=B 1 ; D3=B 1 : D4=D i 

1820  RETURN 

2000  X  X=S : SOSUB2200 

2010  IFSS (PL; =1THEN2100 

2320  F0RI=3T03: FORJ=0TO3 

2030  W ( I , J ) =BW ( I , J > 

2040  NEXT: NEXT 
2B50  XX=i : SOSUB2200 
2060  FORI=0TO3:FORJ=0TG3 
2070  BW=BW ( I , J ) : BW ( I , J  >  =W ( I , J ) 

2330  I F ( W  < I , J ) <  64 ) AND ( BW  > 0 ) THENBW ( I , J ) =B 

W (I , J ) -BW/2 

2390  NEXT: NEXT 

21S0  MAX=-5BBBsH=0 

2110  FORI=0TO3: FDRJ=0TO3 

2120  BW=BW(I,J) 

2130  IFBW=MAXTHENMX (H ) = 10* I + J : H=H+ 1 
2140  I FBW >MAXTHENH= 1:MX(0)=1B*I+J:MAX =BW 
2150  NEXT: NEXT 
2160  ZZ=INT (RND (3) * (H? ) 

2170  ZX=INT  (MX  < ZZ)  /1 0)  :  ZY.=MX  (ZZ)- ZX*10 
2180  RETURN 

2200  FORY=0TO3: F0RX=8T03: BW=B 

22 1 0  Z=BE  ( X  ,  Y >  +XX :  AD= 1 575+2*X-BB*Y :  F'OKEA 

D , 160 : P0KEAD+5 4272 , CO ( PL) 

2220  I FZ  >3THENBW=- 10000 : 30702350 
2232  3W=BW+RX (Y,Z ) +RY (X,Z ) +RZ ( X , Y ) 

2240  IFY=ZTHENBW=BW+UX (X) 

2250  IFX=ZTHENBW=BW+UY (Y) 

2260  IFX=Yf HENBW=BW+UZ ( Z ) 

2273  IFY=3-ZTHENBW=BW+0X  (X> 

2280  IFX=3— ZTHENBW=BW+GY (Y) 

2290  I FX=3-YTHENBW=BW+0Z (Z) 

23E0  I F ( X=Y) AND ( X=Z ) THENEW=BW+D 1 
23 10  I F  <  X =3- Y ) AND ( X  =  Z ) THENBW=BW+D2 
2320  IF ( X=Y) AND ( X=3-Z ) THENBW »BW+D3 
2330  I F  C  Y = Z ) AND ( X-3-Z ) THE N BW=BW+D4 
2340  H0=BW* i E4- I NT ( BW* 1 E4 ) 

2345  I FBW >64THENBW=64 

2346  IFABS  CHB-PL/13) <0. 35THENBW=65 
2350  BW ( X , Y ) =BW 

2360  PG KE AD , 32 
2370  NEXT: NEXT 
2383  RETURN 

2503  Z=BE ( X , Y ) : BE  <X , Y) =Z+1 

2535  F=1 1 14: D=3: GQSUB3E0E 

2510  FE ( X , Y , Z ) =PL 

2520  I FZ< >3THENFE ( X , Y , Z+ 1 ) = 1 

2530  PRINTCOT (PL) :XT=XT(Z) : GOSUB3000 

2540  H=1:Q=0:FGRI=0TO3 

2541  H9=FE ( I , Y , Z) : X ( I ) =1 : Y ( I ) =Y: Z ( I ) =Z 

2542  GO5ÜB2800: NEXT 

2543  GOSUB2900 : RX ( Y . Z ) =H 

2550  H=i:G=0:FGRI=0TG3 

2551  H9=FE (X , I , Z) : X C I ) =X: Y ( I ) =1 : Z ( I ) =Z 

2552  GOSUB2800: NEXT 

2553  GOSUB2900 : RY ( X , Z ) =H 

2560  H=1 : 0=3 : FORI =0TC3 

2561  H9=FE ( X , Y , I > : X  C I ) =Xs  Y ( I ) =Y : Z  < I ) =1 

2562  GOSUB2800 : NEXT 

2563  GOSUB2930 :  RZ  (  X  ,  Y )  =H  Listing 

2570  IFYOZTHEN2580  »3D-Vier  gewinnt« 
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2571  H=i : 0=0: FGEI=0TÜ3 

2691  IF  CY=Z ) AND ( X=3-Z ) THEND4=2*D4 

2572  H9=FE ( X , I , I ) :  X  U)=X :  Y  C I )  =1 :  Z  ( I  >  =1 

2700  RETURN 

2573  GOSUB2300: NEXT 

2800  IFH9=0THENH=H/2: RETURN 

2574  GGSUE290S : UX (X ) =H 

2S13  I FH9= 1 THENRETURN 

2532  IFXOZTHEN2590 

2820  IF (Q<2) 0R(H9=Q) THENH=H*4: Q=H9: RETUR 

2531  H= 1 : Q=0 ; FGR I =0TO3 

Kl 

2532  H9=FE < I , Y , I ) s  X ( I )  =  1 : Y  < I ) =Y: Z  < I > =1 

2330  H=0: RETURN 

2583  3GSUB2BE0: NEXT 

2930  IFH=64THENH=H+FL/1E5 

2534  GOSUB2930: UY (Y) =H 

2910  IFH0256THENRETURN 

2590  IFXOYTHEN2600 

2920  FDRJ=0TO3: GX(J)=X(J) :GY<J)=Y(J>  :  GZ ( 

2591  H=1:Q=0:FGRI=0TO3 

J)=Z (J) : NEXT 

2592  H9=FE  < I ,  I  ,  Z) : X ( I >  =1 : Y  < I >  =1 : Z  < I >  =Z 

2930  BW=PL: RETURN 

2593  GOSUB2800: NEXT 

3200  X0=6*X+Z+L: Y0=22-5*Y-Z 

2594  EOSUB2900 : ÜZ <  Z ) =H 

30 1 2  PGKE2 1 1 , X0 : P0KE2 1 4 , Y0 : SYS58732 

2632  IFY<  >3— ZTHEN2610 

3220  F'RINTXS; : RETURN 

2621  H= 1:3=0: FÜR I=0TO3 

3 1 20  PO KE 2 14,6: POKE  2 11,30: S YS58732 

2622  H9=FE ( X  ,  I  , 3— I):X(I)=X:Y(I5=I:Z(I) =3 

3110  PRINT"  r - T - ! - r 

-I 

3120  B0SUB3 180: PRINT"  i  !  !  !  1 " 

2603  GDSUE2S00: NEXT 

3130  FGFs  1  =  1  T03 

2624  G0SUB2922 : 0 X ( X ; -H 

3140  G0SUB3 182:  PRINT"  ! — 5-  '  4-  i  ” 

2610  IFXO3-ZTHEN2620 

3150  GGSUB3 1 80 : FR I NT "  j  !  i  i  !  ” : NEXT 

2612  H9=FE ( I ,Y ,3-1 ) : X  < I ) =1 : Y ( I ) =Y: Z ( I ) =3 

3170  RETURN 

-I 

3 1 82  F0KE2 11,32: S YS59732 : RETURN 

2613  GGSUE2S03: NEXT 

3500  X$=CHR$ ( 1 44 > +CHRS (18) 

2614  GOSUB2900: OY (Y) =H 

35 1 0  IF3W< >0THEN3540 

2622  IFX< >3— YTHEN2630 

3522  XS=XS+LEFTS (BLS, 13) +" UNENTSCHIEDEN ! 

2621  H= 1 : 0=0 : FOR I =0TG3 

!,+LEFT$(BL*,13) 

=  Z 

0  GOT0^5g-2 

3540  M£=” SIEGER:  "+SP4-  C GW)  :  H=i_EN  CHS) 

2623  BOSUB2S20: NEXT 

3552  IFH>40THENHS='  EFTS (HS , 42) : H=42 

2624  3O3UB2920 :  OZ  ( Z ) =H 

•356 2  H=(40-H)/2 

2630  I F  <  X<  >Y ) OR  <  X< > Z ) THEN2640 

3570  XS=XS+LEFTS ( BLS , H) +HS+LEFTS ( BLS , H+ . 

2631  H= 1:3=0: FOR I=0TO3 

5) 

2632  H9=FE ( I  ,  I  ,  I ) : X ( I >  =  1 : Y  <1 >  =1 : Z  < I >  =1 

3582  FRIMTCHRS (19) ; XS: PRINTCHRS (19) 

2633  GO“i  SB2S20:  NEXT 

3592  F=4455 : D=7 : GOS! JB3322 

2634  SOSUB2900 : E 1 =H 

359 1  F =502 1 : D=7 : GOSUB3S0B 

2642  I F ( X< >3— Y ) CR  < X< >Z) THEN2650 

3592  F =56 1 3 : D=7 : GOSUB3802 

2641  H= 1:0=0: FOR I=0TO3 

3593  F=5947 : D=22 : GGSUB3SGE 

2642  H9=FE ( I ,3-1 ,  I  )  :  X  ( I )  =  I  :  Y  ( I )=3-I : Z (I) 

3594  F=4455 : D=20 : G0SUB3822 

=  1 

3595  F=5947: D=23: G0SUB3822 

2643  GOSUB2S03: NEXT 

3596  F=4455 : D=20 : GGGUB3800 

2644  GOSUB29B0: D2=H 

3597  F=5?47 : D=50 : G0SUB3822 

2652  I F ( X< >Y ) OR ( X  < >3-Z ) THEN2660 

3622  IFGUO0THEN3620 

2651  H= 1:3=2: FOR I=ETG3 

36 1 2  POKE 1 9S , 0 : WA I T 1 98 , 1 : POKE 198,0: GOTO 1 

2652  H9=FE (I,I,3-I):X<I)=I:Y(I)=I:Z(I)=3 

00 

—  T 

3622  PRINTCGS (GW) : GQSU83750 

2653  GD5UB2S00: NEXT 

3630  T =T I 

2654  GOBUB2900: D3=H 

3642  GETKS: IFKS< > " "THEN100 

2660  I F  C  Y<  > Z ) OR  CX< >3-Z ) THEN2670 

3652  I FT I — T<  30THEN3640 

!  2661  H= 1:3=0: FOR I=0TO3 

3662  F'RINTCLS(GW) : GOSUB3750 

2662  H9=FE (3-1 , 1 , 1 ) : X ( I > =3- 1 : Y (I ) =1 : Z  < I ) 

3672  T=TI 

=  1 

3680  GETKS : I FKS< > " " THEN 1 20 

2663  G05UB282B: NEXT 

3690  I FT I— T <  30THEN36B0 

2664  GGSUB2900: D4=H 

3730  GOTC3620 

2670  Z=Z+1: IFZ=4THEN2700 

3752  F0RI=2TC3 

26B0  RX (Y , Z) =RX ( Y , Z) *2 

3760  X=GX ( I ) : Y=GY ( I ) : Z=GZ ( I ) : H=0 

26S 1  RY ( X , Z ) =RY ( X , Z ) *2 

3770  IFZ=0THENH=H+1 

26S2  IFY=ZTHENUX(X)=UX<X>*2 

3780  IFZ+l=BE(X,Y)THENH=H+2 

26B3  IFX=ZTHENüY(Y)=UY<Y)-*2 

3790  XS=WS(H) : GOSUB3000 

26B4  IFX=YTHENUZ ( Z ) =UZ ( Z ) *2 

3795  NEXT: RETURN 

2685  IFY=3-ZTHEN0X (X ) =0X (X ) *2 

3802  F0=INT (F/256) : PGKE54272,F-256*F0 

2686  IFX=3— ZTHENCY (Y) =0Y (Y) *2 

38 1 2  P0KE54273 , F0 : P0KE54276 , 65 

2637  IFX=3-YTHEN0Z (Z) =GZ (Z ) *2 

3820  T =T I 

2638  I F  <  X =Y ) AND ( X=Z ) THEND 1 =2*D 1 

3830  I FT I — T<  DTHEN3830 

26B9  I F ( X=3-Y ) AND ( X=Z ) THEND2=2*D2 

3B40  POKE54276,0: RETURN 

2690  I F  (  X=Y )  AND  <  X=3-Z )  THEND3=2*D3 

READY . 
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Druckfehlerteufelchen 


Hardcopy  mit  dem  VC  1520,  Ausgabe 
7/84,  Seite  108 

Die  korrekte  Zeile  lautet: 
POKE44,64:POKE64*256, 
0:NEW 

und  nicht  64-256! 

Einzeller,  Ausgabe  11/84,  Seite  155 

Die  Spaces  bei  dem  Einzel¬ 
ler  DI-AS  müssen  als  Shift- 
Space  eingegeben  werden. 


Die  Ebenen  des  Absturzes,  11/84, 
Seite  93 

Das  letzte  Datum  in  Zeile 
360  (Programm  UNNEW) 
lautet  255. 

User-Port-Tastatur,  Ausgabe  10/84, 
Seite  93 

Das  Datum  28  in  Zeile  880 
muß  in  82  umgewandelt  wer¬ 
den. 


FLIST,  Ausgabe  10/84,  Seite  90 

Der  Hinweis  für  Drucker¬ 
besitzer  muß  natürlich  lau¬ 
ten: 

0PEN1,4:CMD1:FLIST 
und  nach  dem  Drucken: 
PRINT  #l:CLOSEl 

Außerdem  bin  ich  durch 
Zufall  auf  einen  Programm¬ 
fehler  gestoßen,  der  bei  akti¬ 
vem  Programm  auftritt  und 
bei  einer  Variablenzuwei¬ 
sung,  bei  der  die  Variable  mit 
F  beginnt  einen  SYNTAX  ER¬ 
ROR  erzeugt  (zum  Beispiel 
bei  F=l,  FX = 100  etc.). 

Dies  kann  man  auf  zwei 
Arten  verhmdern: 

Entweder  schaltet  man  die 
Erweiterung  vor  dem  Starten 
eines  Basic-Programms 
durch  SYS  58451  ab,  oder 
man  ändert  den  Basic-Lader 
wie  folgt: 

Den  Endwert  der  FOR- 
NEXT-Schle'ife  auf  981  setzen, 
in  Zeile  230  den  letzten  Wert  8 
durch  195  und  in  Zeile  240 
den  ersten  Wert  175  in  3  abän¬ 
dern. 

Dann  fügt  man  diese  DATA- 
Zeilen  an: 


440  DATA  56,165,122,233 
450  DATA  1,133,122,165 
460  DATA  123,233,0,133 
470  DATA  123,32,121,0 
480  DATA  76,231,167 

Michael  Weidlich 

So  macht  man  Basic-Programme 
schneller,  Ausgabe  10/84,  Seite  55 

Bei  den  Versionen  1  für 
C  64  und  VC  20  wurde  in 
den  Zeilen  40  jeweils  nach 
dem  Z  ein  »,1«  vergessen.  Al¬ 
so:  40  POKE  7680  +  Z.l: 
POKE  38400 +  Z, 6  etc. 

Seite  58,  Version  13:  40 
PRINT  Ä"; 

MSD-Super-Disk-Drive,  Ausgabe 
11/84,  Seite  15 

Die  vollständige  Bezugs¬ 
adresse  von  Softline  lautet: 
Softline,  Schwarzwaldstraße 
8a,  7602  Oberkirch,  Tel.: 
07802/3707 

Titelfoto,  11/84,  Seite  1 

Das  Titelfoto  dieser  Ausga¬ 
be  wurde  von  Limelight  Stu¬ 
dio,  Karolinenstraße  3,  8000 
München  22.  Tel.: 
089/222397  erstellt. 
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Wollen  Sie  einen  gebrauchten  Computer  ver¬ 
kaufen  oder  erwerben?  Suchen  Sie  Zubehör? 
Haben  Sie  Software  anzubieten  oder  suchen 
Sie  Programme  oder  Verbindungen?  Die  FUND¬ 
GRUBE  von  64  er  bietet  allen  Computerfans  die 
Gelegenheit,  für  nur  DM  5—  eine  private  Klein- 
unzQigc  mit  bis  zu  5  Zeilen  Text  in  der  Rubrik 
Ihrer  Wahl  aufzugeben.  Und  so  kommt  Ihre  pri 
vate  Kleinanzeige  in  die  FUNDGRUBE  der  Januar- 
Ausgabe  (erscheint  am  14.  Dez  84).  Schicken 
Sie  Ihren  Anzeigentext  bis  zum  20.  Nov,  84  (Da¬ 
tum  des  Poststempels  und  Anzeigenschluß)  an 
»64er..  Später  eingehende  Aufträge  werden  in 
der  Februar-Ausgabe  i erscheint  am  20  De:  84) 
verottentlich! 


Am  besten  verwenden  Sie  dazu  die  vorbereitete 
Auftragskarte  am  Anfang  des  Heltes.  Bitte  be¬ 
achten  Sie:  Ihr  Anzeigentext  darf  maximal  5  Zei¬ 
len  mit  je  32  Buchstaben  betragen.  Überweisen 
Sie  den  Anzeigenpreis  von  DM  5  —  auf  das 
Postscheckkonto  Nr.  14 199-803  beim  Post¬ 
scheckamt  mit  dem  Vermerk  Markt  8  Technik, 
64'er.  oder  schicken  Sie  uns  DM  5—  als 
Scheck  oder  in  Bargeld. 
Der  Verlag  behalt  sich  die  Veroflenuchung  längerer 
Texte  vor.  Kleinanzeigen,  die  entsprechend  ge¬ 
kennzeichnet  sind  oder  deren  Text  auf  eine  ge¬ 
werbliche  Tätigkeit  schließen  läßt,  werden  in 
der  Rubrik  -Gewerbliche  Kleinanzeigen,  zum 
Preis  von  OM  10,—  ie  Zeile  Text  veröffentlicht. 
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C  64 


Musik-Kurs 


Dem  KinnG 

BUP  DER 
SPUR 

Teil  I 

Im  C  64  steckt  jede  Menge  Musik. 
Doch  wie  man  dem  Heimcomputer  die 
richtigen  Klänge  entlockt,  wissen  viele 
nicht.  Sie  erfahren  es  in  diesem  Kurs. 


Zunächst  wollen  wir  ein  wenig 
auf  die  Hardware  und  auf  die 
Grundzüge  der  Tonerzeugung 
eingehen.  Zuständig  für  den 
Sound  des  C  64  ist  ein  unschein¬ 
bares  kleines  Chip,  das  als  SID 
(Sound  Interface  Device)  be¬ 
zeichnet  wird.  Dieser  hochent¬ 
wickelte  Synthesizerbaustein 
enthält  drei  Stimmen,  die  ein 
Synthi-Freak  als  DCOs  (Digital 
Controlled  Oscillators)  bezeich¬ 
net.  Sie  realisieren  polyphone 
(mehrstimmige)  Klänge  oder  Se¬ 
quenzen.  Für  jeden  dieser  Oszil¬ 
latoren  stehen  vier  Wellenfor¬ 
men  zur  Verfügung  (Bild  1). 


Wellenformen 


Ein  gespielter  Ton  besteht  aus 
einer  Grundfrequenz,  sowie  den 
Obertönen.  Die  Tonhöhe  wird 
durch  die  Grundfrequenz  be¬ 
stimmt.  Oberwellen  sind  Sinus¬ 
schwingungen,  deren  Frequen¬ 
zen  ein  ganzzahliges  Vielfaches 
der  Grundfrequenz  sind.  Ein 
monophoner  Klang  besteht  also 
aus  einer  Grundfrequenz  und 
seinen  Obertönen.  Eine  Ausnah¬ 
me  hiervon  bildet  das  Rauschen, 
bei  dem  es  sich  um  ein  Fre¬ 
quenzgemisch  handelt. 

Ein  akustisches  Instrument, 
wie  etwa  ein  Klavier  oder  eine 
Trompete,  hat  eine  komplizierte 
Oberwellen3truktur.  Diese  kann 
sich  beim  Spielen  auch  ändern, 
zum  Beispiel  bei  einem  Klavier: 
Der  Anschlag  eines  Klavierto¬ 
nes  ist  relativ  obertonreich,  die 

Note  klingt  dann  jedoch  dumpf 
aus.  Im  folgenden  möchten  wir 
auf  die  im  SID  vorhandenen 
Wellenformen  kurz  eingehen: 

1.  Die  Dreieckschwingung: 

Diese  Wellenform  ist  der  Si¬ 


nusschwingung  sehr  ähnlich. 
Die  Dreieckswelle  enthält  eben¬ 
falls  sehr  wenig  Obertöne.  Der 
Klang  erinnert  an  eine  Holzflöte. 

2.  Die  Sägezahnschwingung: 

Diese  Welle  enthält  alle  Ober¬ 
wellen  und  klingt  datier  sehr 
hell.  Sie  erinnert  vom  Klangner 
an  eine  Violine. 

3.  Die  Rechteckschwingung: 

Dies  ist  eigentlich  die  vielsei¬ 
tigste  Wellenform.  Durch  Ände¬ 
rung  der  Pulsbreite  lassen  sich 
extreme  Klangveränderungen 
erzielen.  Der  Grundton  erinnert 
an  eine  Klarinette. 

4.  Weißes  Rauschen: 

Dieses  Frequenzgemisch  läßt 
sich  insbesondere  in  Verbin¬ 
dung  mit  dem  Filter  sehr  vielsei¬ 
tig  für  Geräuscheffekte  einset- 
zen.  Beispielsweise  zur  Imitation 
eines  Schlagzeugs. 


Filter 


Zur  Beeinflussung  eines  Klan¬ 
ges  fehlt  jetzt  noch  ein  Filter.  Er 
verändert  den  Oberwellenge¬ 
halt  einer  Welle.  Der  SID  besitzt 
drei  verschiedene  solcher  Fü- 
ter:  einen  Tiefpaßfilter,  einen 
Bandpaßfilter  und  einen  Hoch¬ 
paßfilter.  Diese  werden  unab¬ 
hängig  voneinander  oder  auch 
kombiniert  verwendet. 

1.  Tiefpaßfilter: 

Dieser  Filter  läßt  alle  tieferen 
Töne  passieren,  während  er  die 
hohen  Freqenzen  abschwächt. 
Dieser  »Effekt«  wird  durch  eine 
variierbare  Grenzfrequenz  des 
Filters  geregelt.  Man  bestimmt 
mit  ihm,  wieviele  Obertöne  zum 
Beispiel  aus  einer  Sägezahn¬ 
schwingung  herausgefiltert  wer¬ 
den.  Durch  eine  Filterung  der 


Obertöne  lassen  sich  Instrumen¬ 
te  gut  imitieren. 

2.  Hochpaßfilter: 

Dieser  Filtertyp  schwächt  die 
tieferen  Töne  stark  ab  (nämlich 
wie  der  Tiefpaß  genau  um  12 
dB).  Durch  Hochpaßfilter  ge¬ 
formte  Klänge  klingen  sehr 
»dünn«,  da  ihnen  jegliches  Baß¬ 
fundament  fehlt. 

3.  Bandpaßfilter: 

Der  Bandpaßfilter  läßt  nur  ein 
schmales  Frequenzband  hin¬ 
durch,  während  er  alle  übrigen 
Frequenzen  abdämpft.  Die 
Klangergebnisse  sind  ähnlich 
wie  beim  Hochpaß,  also  sehr 
dünn.  Dieser  Filter  besitzt  eine 
Flankensteilheit  von  nur  6  dB. 

4.  Notchfilter: 

Der  Notchfilter  ist  eine  Kombi¬ 


muß  berücksichtigt  werden.  Ein 
charakteristischer  Klavierton 
hat  einen  harten  Anschlag  und 
klingt  dann  bald  aus.  Um  diesen 
Lautstärkeverlauf  nachzuah¬ 
men,  bedient  man  sich  in  den 
meisten  Synthesizern  eines  Hüll¬ 
kurvengenerators  (ADSR). 


ADSR 


ADSR  ist  die  Abkürzung  für 
Attack-Decay-Sustain-Release. 
Man  hat  den  Lautstärkeverlauf 
einfach  in  vier  Phasen  aufgeteilt. 
Attack  nennt  man  die  Zeit,  die 
ein  Ton  benötigt,  um  seine  Spit¬ 
zenlautstärke  zu  erreichen.  Die 
Zeit,  in  der  der  Ton  wieder  auf 
ein  geringeres  Lautstärkeni- 
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Bild  1.  Die  verschiedenen  Wellenformen 


(A)  (D)  (S)  (R) 


Bild  2.  Die  ADSR-Hüllkurve 


nation  aus  Hochpaß-  und  Tief¬ 
paßfilter  und  gilt  deshalb  meist 
nicht  als  eigenständiger  Filter¬ 
typ.  Er  heißt  auch  Bandsperre 
und  übernimmt  genau  die  um¬ 
gekehrte  Funktion  eines  Band- 
paßfilters.  Er  schwächt  ein  klei¬ 
nes  Frequenzband  ab,  während 
er  alle  restlichen  Frequenzen 
durchläßt. 

Die  Hüllkurve: 

Um  zum  Beispiel  ein  Klavier  zu 
imitieren,  genügt  es  nicht,  den 
Klang  durch  Einsatz  von  Filtern 
nachzuahmen.  Auch  der  Laut¬ 
stärkeverlauf  eines  Instruments 


veau  abfällt,  nennt  man  Decay. 

Den  Bereich  mit  dem  geringe¬ 
ren  Volumenpegel  nennt  man 
Sustain.  Soll  der  Ton  nachklin¬ 
gen,  wie  etwa  bei  einem  Klavier 
mit  gedrucktem  Dämpferpedal, 
dann  wird  dies  durch  Release 
erreicht.  Zum  besseren  Ver¬ 
ständnis  haben  wir  alle  vier  Pa¬ 
rameter  auf  einem  Schaubild  zu¬ 
sammengefaßt  (Bild  2).  In  der 
nächsten  Ausgabe  werden  wir 
intensiv  auf  den  Sound  und  sei¬ 
ner  Programmierung  am  C  64 
eingehen.  (Bernhard  Carli/ 
Christian  Spitzner/aa) 
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Bei  der  Durchforstung  der  ersten  1024 
Speicherzellen  werden  wir  in  dieser 
Folge  die  Adressen  3  bis  17  etwas 
genauer  beleuchten. 


Das  letzte  Mal  hatten  die  be¬ 
sprochenen  Speicherzellen 
verschiedene  Bedeutungen  für 
VC  20  und  C  64. 

Ab  diesmal,  also  ab  Speicher¬ 
zelle  3  über  mehrere  Folgen  die¬ 
ser  Serie  hinaus  bis  zur  Spei¬ 
cherzelle  672  gelten  alle  Anga¬ 
ben  für  beide  Computer,  zumin¬ 
dest  was  die  Bedeutung  der  Zel¬ 
len  betrifft.  Ihr  Inhalt  kann  ent¬ 
sprechend  der  verschiedenen 
Adressen  der  Betriebssysteme 
voneinander  abweichen.  Wie 
üblich  werde  ich  natürlich  je¬ 
weils  darauf  aufmerksam  ma¬ 
chen. 

Adresse  3  und  4  ($3  —  $4) 

Vektor  auf  die  Routine  zur  Umwandlung 
einer  Gleitkommazahl  in  eine  ganze  Zahl 
mit  Vorzeichen 

In  diesen  beiden  Speicherzel¬ 
len  steht  also  ein  Vektor.  Was  das 
ist,  wird  in  der  Tabelle  1  näher 
erläutert.  Beim  VC  20  deutet  die¬ 
ser  Vektor  auf  die  Adresse  53674 
($D1AA),  beim  C  64  auf  45482 
($B1AA).  Sie  können  das  mit 
PRINT  PEEK  (3)  +  256*PEEK  (4) 
leicht  nachprüfen.  Ab  diesen 
Adressen  beginnt  im  Basic- 
Übersetzer  (Interpreter)  ein  Pro¬ 
gramm,  welches  —  natürlich  in 
Maschinensprache  —  eine 
Gleitkommazahl  in  eine  ganze 
Zahl  umwandelt. 

Diejenigen  Leser,  welche  mit 
Gleitkommazahlen  nicht  so  ver¬ 
traut  sind,  möchte  ich  auf  die  Ta¬ 
belle  2  verweisen.  Er  ist  nur  eine 
kleine  Einführung.  Später,  bei 
der  Behandlung  der  Speicher¬ 
zellen  97  —  102  werde  ich  im  De¬ 
tail  auf  die  externe  und  interne 
Darstellung  und  Verwendung 
von  Gleitkommazahlen  einge- 
hen. 

Dieses  Umwandlungspro¬ 
gramm  steht  nicht  nur  den  Ma¬ 
schinen,  sondern  auch  den 
Basic-Programmierern  zur  Ver¬ 
fügung,  allerdings  nur  über  den 
USR-Befehl  und  da  auch  nur, 
wenn  der  »Floating  Point  Accu- 
mulator«  #  1  (FAC1)  in  den  besag¬ 
ten  Adressen  97  bis  102  mitbe¬ 
nutzt  wird.  Ich  verschiebe  daher 
alle  weiteren  Details  auf  unsere 
Ankunft  bei  diesen  Speicherzel¬ 
len. 

Bis  dahin  haben  Sie  hoffentlich 
auch  den  Assemblerkurs  weiter 


verfolgt,  die  Assembler-,  Dissas- 
sembler-  und  Monitorprogram¬ 
me  eingetippt  und  können  damit 
arbeiten.  Dann  können  wir  viel 
besser  den  ganzen  Zusammen¬ 
hang  verfolgen. 

Adresse  5  und  6  ($5  —  $6) 

Vektor  auf  die  Routine  zur  Umwandlung 
einer  ganzen  Zahl  in  eine  Gleitkommazahl 

Dieses  Programm  ist  die  Um¬ 
kehrung  der  oberen  Routine.  Es 
beginnt  beim  VC  20  ab  Spei¬ 
cherzelle  54161  ($D391),  beim 
C  64  ab  45969  ($B391).  Da  hier 
prinzipiell  dasselbe  gilt  wie 
oben,  möchte  ich  nur  kurz  den 
Vorteil  beleuchten,  den  derarti¬ 
ge  Vektoren  haben.  Eigentlich 
könnten  wir  direkt  auf  die  im 
Vektor  enthaltenen  Adressen 
springen  —  wenn  wir  sie  ken¬ 
nen. 

Ein  Sprung  auf  die  Adresse 
des  Vektors  erlaubt  uns  jedoch 
immer  die  völlige  Ignoranz  sei¬ 
nes  Inhalts  —  und  Commodore 
erlaubt  die  Änderung  der 
Adressen  im  Basic-Übersetzer, 
wie  es  ja  beim  C  64  gegenüber 
dein  VC  20  auch  gemacht  wor¬ 
den  ist,  ohne  daß  vorhandene 
Programme  umgeschrieben 
werden  müssen. 

Adresse  7  ($7) 

Suchzeichen  zur  Prüfung  von  Texteinga¬ 
ben  in  Basic 

Diese  Speicherzelle  wird  viel 
von  denjenigen  Basic-Routinen 
als  Zwischenspeicher  benützt, 
die  den  direkt  eingegebenen 
Text  absuchen,  um  Steuerzei¬ 
chen  (Gänsefüße,  Kommata, 
Doppelpunkte  und  die  Zeüen- 
beendigung  durch  die  RETURN- 
Taste)  rechtzeitig  zu  erkennen. 
Normalerweise  wird  in  der  Zelle 
7  der  ASCII-Wert  dieser  Zeichen 
abgelegt.  Die  Speicherzelle  7 
wird  aber  auch  von  anderen 
Basic-Routinen  benützt.  Sie  ist 
daher  für  den  Programmierer 
praktisch  nicht  zu  verwerten. 
Adresse  8  ($8) 

Suchzeichen  speziell  für  Befehlsende  und 
Gänsefüße 

Wie  Speicherzelle  7  dient 
auch  die  Zelle  8  als  Zwischen¬ 
speicher  für  Basic-Texteingabe 
und  zwar  während  der  Umwand¬ 
lung  von  Basic-Befehlen  in  den 
vom  Computer  verwendeten  Be¬ 
fehlscode  (Tokens).  Die  Spei¬ 


cherzelle  8  ist  vom  Programmie¬ 
rer  nicht  verwertbar. 

Adresse  9  ($9) 

Spaltenposition  des  Cursors  vor  dem  letz¬ 
ten  TAB-  oder  SPC-Befehl 

Speicherzelle  9  wird  von  den 
Basic-Befehlen  TAB  und  SPC 
verwendet.  Vor  ihrer  Ausfüh¬ 
rung  wird  die  Nummer  der  Spal¬ 
te,  in  der  sich  der  Cursor  befin¬ 
det,  aus  der  Speicherzelle  211 
($D3)  nach  9  gebracht,  von  wo 
sie  geholt  wird,  um  die  Position 
des  Cursors  nach  der  Ausfüh¬ 
rung  von  TAB  und  SPC  auszu¬ 
rechnen. 

Diese  komplizierte  Erklärung 
können  wir  durch  Ausprobieren 
deutlicher  machen.  Dazu  PRINT- 
en  wir  16mal  den  Buchstaben  X 
hintereinander  (Semicolon  !),  al¬ 
lerdings  mit  SPC  (2)  jeweils  um  2 
Spalten  versetzt. 

10  FOR  1  =  0  TO  15 

20  PRINT  SPC  (2)  "X"; 

30  PRINT  PEEK  (9); 

40  NEXT  I 

Nach  jedem  X  wird  durch  Zeile 
30  die  »alte«  Cursor  Spaltenposi¬ 
tion  ausgedruckt  und  zwar  in 
derselben  Zeile,  ausgelöst 
durch  das  Semicolon.  Dadurch 
erhöht  sich  laufend  die  in  Spei¬ 
cherzelle  9  stehende  Positions¬ 
angabe  des  Cursors.  Wir  erhal¬ 
ten  folgenden  Ausdruck: 


Sie  können  die  Positionsnum¬ 
mer  nachrechnen.  Berücksichti¬ 
gen  Sie  bitte  aber  dabei,  daß  bei 
PRINT  vor  und  nach  jeder  Zahl 
eine  Stelle  frei  bleibt,  die  erste 
für  das  Vorzeichen,  die  zweite 
wegen  des  Abstandes. 

Wichtig  ist  außerdem,  daß  die 
maximal  mögliche  Spaltenzahl 
nicht  die  Bildschirmspaltenzahl, 
sondern  die  »logische«  Spalten¬ 
zahl  ist,  also  88  beim  VC  20  und 
80  beim  C  64. 

Wir  können  die  Cursorposi¬ 
tion  in  Adresse  9  auch  abfragen 
und  ein  Programm  damit  steu¬ 
ern.  Fügen  Sie  einfach  in  das 
obige  Programm  die  folgende 
Zeile  35  ein: 

35  IF  PEEK  (9)  =  33  THEN  PRINT 
»END«:  END 

Sobald  Position  33  erreicht  ist, 
bleibt  das  Programm  stehen. 
Adresse  10  (SA) 

Flagge  für  LOAD  oder  VERIFY 

In  Zelle  10  steht  eine  0,  wenn  ge¬ 
laden  wird  und  eine  1  bei  einem 
VERIFY.  Warum  das  so  ist,  will 
ich  kurz  erläutern: 

Die  Basic-Routinen  für  LOAD 
beziehungsweise  für  VERIFY 
sind  völlig  identisch.  Was  das 
Betriebssystem  hinterher  dar¬ 
aus  machen  muß,  ist  natürlich 


unterschiedlich.  Das  Basic  er¬ 
spart  sich  eine  doppelte  Routine, 
zeigt  aber  mit  der  Flagge  in 
Speicherzelle  10  den  Unter¬ 
schied  an. 

Erwähnenswert  ist  noch,  daß 
das  Betriebssystem  in  einer  Art 
Nationalismus  seine  eigene 
Flagge  aufzieht:  Den  Unter¬ 
schied  zwischen  LOAD  und 
VERIFY  speichert  es  seinerseits 
in  Zelle  147  ($93)  ab.  Soweit  ich  es 
sehen  kann,  sind  Inhalt  und  Be¬ 
deutung  beider  Speicherzellen 
völlig  identisch. 

Ich  habe  für  Sie  zwar  kein 
Kochrezept  zur  Anwendung  der 
LOAD-VERIFY-Flagge  in  einem 
Programm  vorrätig,  möchte  Sie 
aber  trotzdem  ein  bißchen  zum 
Spielen  anregen.  Um  meine  Er¬ 
klärung  nachzu vollziehen,  tip¬ 
pen  Sie  bitte  direkt  LOAD  ein. 
Den  Ladevorgang  brechen  Sie 
mit  der  STOP-Taste  ab  und  fra¬ 
gen  dann  den  Inhalt  der  Zelle  10 
ab  mit 

PRINT  PEEK  (10) 

Wir  erhalten  eine  0. 
Wiederholen  Sie  bitte  diesen 
Vorgang,  aber  mit  VERIFY.  Wir 
erhalten  jetzt  eine  1  —  Quod  erat 
demonstrandum. 

Wir  können  auch  in  die  Zelle 
lOhineinPOKEn.  Die  »Wachablö¬ 
sung«  zwischen  Basic  und  Be¬ 


triebssystem  unter  Hissen  der 
Flagge  in  Zelle  10  findet  beim 
VC  20  in  der  Speicherzelle 
57705,  beim  C  64  in  57708  statt. 
Bevor  wir  diese  Maschinenrouti¬ 
ne  mit  SYS  57705  (SYS  57708)  star¬ 
ten,  geben  wir  mit  dem  Inhalt 
der  Speicherzelle  10  an,  ob  es 
ein  LOAD  oder  ein  VERIFY  sein 
soll. 

Legen  Sie  ein  Band  mit  Pro¬ 
gramm  in  die  Datasette.  Um  ein 
LOAD  zu  erzeugen,  geben  wir 
direkt  ein: 

POKE  10,0:SYS  5770S 

(POKE  10,0:SYS  57708) 
Entsprechend  der  Anweisung 
auf  dem  Bildschirm  drücken  Sie 
PLAY  und  das  Auffinden  des  er¬ 
sten  Programms  wird  mit  LOAD 
gemeldet.  Machen  Sie  das  Gan¬ 
ze  noch  einmal,  diesmal  aber 
POKEn  Sie  bitte  eine  1  in  die  Zel¬ 
le  10.  Jetzt  meldet  das  Betriebs¬ 
system  das  Auffinden  des  Pro¬ 
gramms  mit  VERIFY. 

Wie  gesagt,  vielleicht  fällt  Ih¬ 
nen  eine  Anwendung  dafür  ein. 
Adresse  11  (SB) 

Flagge  für  den  Eingabepuffer/Anzahl  der 
Dimensionen  von  Zahlenfeldern  (Arrays) 

Alle  Buchstaben  und  Zeichen, 
die  mit  der  Tastatur  direkt  ein¬ 
getippt  werden,  kommen  in  ei- 
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nen  Eingabe-Pufferspeicher.  Er 
beginnt  ab  Speicherzelle  512 
($200).  Sobald  die  RETURN- 
Taste  gedrückt  wird,  wandelt  ei¬ 
ne  Routine  des  Basic -Überset¬ 
zers  den  Text  in  Codezahlen  (To¬ 
kens)  um.  Diese  Routine  und  ei¬ 
ne  andere,  welche  die  Zeilen  ei¬ 
nes  Programms  aneinander¬ 
hängt,  verwenden  die  Zelle  11 
als  Zwischenspeicher. 

Sobald  die  Textumwandlung 
beendet  ist,  steht  in  Zelle  11  eine 
Zahl,  welche  die  Länge  der 
Token-Zeile  angibt. 

Die  Zelle  11  wird  außerdem 
noch  von  den  Basic-Routinen  be¬ 
nützt,  die  ein  Feld  (Array)  auf¬ 
bauen  oder  ein  bestimmtes  Ele¬ 
ment  in  einem  Array  suchen. 
Was  ein  Feld  oder  Array  ist,  fin¬ 
den  Sie  in  den  Commodore- 
Handbüchern  gut  beschrieben. 

Diese  Routinen  also  verwen¬ 
den  die  Speicherzelle  11,  um  die 
Anzahl  der  verlangten  DIMen- 
sionen  und  den  für  ein  neu  auf¬ 
gebautes  Feld  nötigen  Speicher¬ 
bedarf  zu  berechnen. 

Adresse  12  ($C) 

Flagge  für  Basic-Routinen,  die  ein  Feld 
(Array)  suchen  beziehungsweise  auf¬ 
bauen 

Diese  Speicherzelle  wird  von 
den  Basic-Routinen  als  Zwi¬ 
schenspeicher  benutzt,  die  fest¬ 
stellen,  ob  eine  Variable  ein  Feld 
(Array)  ist,  ob  das  Feld  bereits 
DIMensioniert  worden  ist,  oder 
ob  ein  neues  Feld  die  unDIMen- 
sionierte  Zahl  von  11  Elementen 
hat. 

Adresse  13  ($0) 

Flagge  zur  Bestimmung  des  Datentyps 
(Zeichenkette/String  oder  Zahl) 

Diese  Flagge  zeigt  den  Routi¬ 
nen  des  Basic-Übersetzers  an, 
ob  es  sich  bei  den  zur  Verarbei¬ 
tung  anstehenden  Daten  um  ei¬ 
nen  String  oder  um  Zahlenwerte 
handelt.  Zeigt  die  Flagge  255 
($FF),  ist  es  ein  String.  Bei  0  han¬ 
delt  es  sich  um  Zahlen,  Diese  Be¬ 
stimmung  erfolgt  jedesmal, 
wenn  eine  Variable  definiert 
oder  gesucht  wird.  Diese  Flag¬ 
ge  kann  leider  nicht  durch  ein 
Basic-Programm  abgefragt  wer¬ 
den. 

Adresse  14  ($E) 

Flagge  zur  Bestimmung  des  Zahlentyps 
(Ganze  Zahl  oder  Gleitkommazahl) 

Sobald  durch  die  Flagge  in 
der  vorherigen  Zelle  13  eine 
Zahl  signalisiert  wird,  steht  hier 
die  Zahl  128  ($80)  wenn  es  sich 
um  eine  ganze  Zahl  handelt, 
während  eine  0  die  Zahl  als 
Gleitkommazahl  identifiziert. 

Damit  wollen  wir  ein  bißchen 
experimentieren.  Zeile  10  defi¬ 
niert  eine  Gleitkommazahl,  Zeile 
20  druckt  sie  und  die  Flagge  aus 
Zelle  14  aus. 

10  A  =  13.41 

20  PRINT  A.PEEK  (14) 

Wir  erhalten  die  Zahl  13.41  und 
als  Flagge  eine  0. 

30  B  =  INT  (A) 

40  PRINT  B,PEEK  (14) 


INT  bildet  die  ganze  Zahl  von 
13.41,  Also  müßte  die  Flagge  in 
Zelle  14  auf  128  stehen.  Weit  ge¬ 
fehlt!  Da  intern  auch  die  13  als 
Gleitkommazahl  berechnet 
wird,  erhalten  wir  immer  noch 
eine  0. 

50  B%  =  A 

60  PRINT  B%,PEEK  (14) 

Erst  die  Definition  der  Varia¬ 
blen  B  als  ganze  Zahl  (mit  %)  er¬ 
gibt  die  Flagge  128. 

70  D  =  16*B% 

80  PRINT  D.PEEK  (14) 

Die  Multiplikation  einer  gan¬ 
zen  Zahl  mit  der  Ganzzahl- 
Variablen  B%  fällt  in  dieselbe 
Kategorie  wie  Zeile  30  oben,  da 
die  Verarbeitung  als  Gleitkom¬ 
mazahl  erfolgt.  Also  erhalten 
wir  zu  Recht  eine  0.  Erst  wenn  D 
als  ganze  Zahl  (Zeile  90)  ausge¬ 
wiesen  wird,  steht  die  Flagge 
wieder  auf  128: 

90  D%  =  16*B% 

100  PRINT  D%,  PEEK  (14) 

Adresse  15  ($F) 

Flagge  bei  LIST,  Garbage  Collection  und 
Textumwandlung 

Die  Routine  des  LIST-Befehls 
muß  unterscheiden  zwischen 
Basic-Befehlen  und  normalem 
Text.  Wenn  eine  Zeichenkette 
durch  ein  »Gänsefüßchen«  iden¬ 
tifiziert  worden  ist,  wird  die  Flag¬ 
ge  gesetzt,  und  der  Text  wird 
ausgedruckt. 

Unter  »Garbage  Collection« 
(Mullabfuhr)  wird  die  Routine 
des  Betriebssystems  verstan¬ 
den,  welche  zu  bestimmten  An¬ 
lässen  im  Variablenspeicher  al¬ 
le  nicht  mehr  benötigten  Strings 
entfernt,  um  Platz  zu  schaffen. 
Dabei  wird  eine  Flagge  in  Zelle 

15  gesetzt,  die  anzeigt,  daß  eine 
Müllabfuhr  bereits  stattgefun¬ 
den  hat.  Wenn  bei  der  Speiche¬ 
rung  eines  neuen  Strings  zuwe¬ 
nig  Speicherplatz  vorhanden  ist, 
wird  bei  der  Flagge  nachgese¬ 
hen,  ob  gerade  vorher  schon 
durch  die  Müllabfuhr  (Garbage 
Collection)  der  Speicher  ent¬ 
rümpelt  v/orden  ist.  Falls  das  der 
Fall  ist,  wird  OUT  OF  MEMORY 
angezeigt,  falls  nicht,  wird  eine 
Müllabfuhr  durchgeführt. 

Schließlich  wird  Zelle  15  auch 
bei  der  Umwandlung  von  Basic- 
Befehlen  in  internen  Codezah¬ 
len  (Tokens)  eingesetzt. 

Adresse  16  ($10) 

Flagge  zur  Anzeige  eines  Variablen- 
Feldes  oder  einer  selbstdefinierten  Funk¬ 
tion 

Im  Basic-Übersetzer  gibt  es  eine 
Routine,  die  den  Speicher  ab¬ 
sucht,  ob  es  eine  Variable  mit 
bestimmten  Namen  bereits  gibt. 
Wenn  diese  mit  einer  Klammer 
beginnt,  wird  die  Flagge  in  Zelle 

16  gesetzt,  um  anzuzeigen,  daß 
es  sich  um  eine  Array-Variable 
oder  um  eine  mit  DEF  FN  selbst 
definierte  Funktion  handelt. 
Adresse  17  ($11) 

Flagge  für  INPUT,  GET  oder  READ 

Die  Basic-Routinen  für  INPUT, 
GET  und  READ  sind  zum  großen 


Teil  identisch.  Um  Speicherplatz 
zu  sparen,  verwendet  der  Basic- 
Übersetzer  die  identischen  Tei¬ 
le  nur  einmal.  Um  in  die  nicht¬ 
identischen  Teile  verzweigen  zu 
können,  wird  in  Zelle  17  ange¬ 
zeigt,  um  welchen  der  drei  Be¬ 
fehle  es  sich  gerade  handelt. 
Die  Flagge  steht  auf  0  für  INPUT, 
auf  64  ($40)  für  GET  und  auf  152 
($98)  für  READ. 

Mit  dem  folgenden  kleinen 
Programm  können  wir  das  leicht 
nachprüfen: 

10  DATA  3 
20  READ  A 
30  PRINT  PEEK  (17) 

40  INPUT  B 
50  PRINT  PEEK  (17) 

80  GET  C$;IF  CS=  ,,,!THEN  60 
70  PRINT  PEEK  (17) 


Zeile  10  und  20,  40  sowie  60 
sind  Anwendungen  der  drei  zur 
Debatte  stehenden  Basic-Befeh- 
le.  Nach  der  Durchführung  je¬ 
des  Befehls  wird  in  den  Zeilen 
30,  50  und  70  die  jeweilige  Flag¬ 
ge  ausgelesen. 

Nach  RUN  erhalten  wir  als  Re¬ 
sultat  der  Zeile  20  die  Zahl  152, 
als  Resultat  von  Zeile  30  die 
INPUT-Aufforderung  mit  Frage¬ 
zeichen.  Geben  Sie  irgendeine 
Zahl  und  RETURN  ein.  Wir  er¬ 
halten  so  die  0.  Die  GET-Schleife 
in  Zeile  40  wartet  auf  einen  Ta¬ 
stendruck,  dann  erhalten  wir  64. 
Adresse  18  ($12) 

Flagge  für  Vorzeichen  des  Ergebnisses  bei 
SIN  und  TAN 

Mit  dieser  Adresse  fahren  wir 
das  nächste  Mal  fort. 

(Dr.  Helmuth  Hauck/aa) 


Tabelle  2.  Die  Zahlendarstellung  bei  den  Commodore-Systemen 
Gleitkomma-Zahlen 

Für  diejenigen  Leser,  die  das  Thema  der  Zahlendarstellung  in 
den  Commodore-Handbüchern  großzügig  übersprungen  ha¬ 
ben,  stelle  ich  es  hier  noch  einmal  vor. 

Sie  kennen  die  gängigen  vier  Zahlentypen: 

—  ganze  Zahlen:  15,  21,  244 

—  Brüche:  %,  2%,  % 

—  negative  Zahlen:  —15,  —255 

—  positive  Zahlen:  10,  5,  123 

Ganze  Zahlen  bereiten  uns  und  dem  Computer  keine  Pro¬ 
bleme. 

Bei  Brüchen  sieht  es  schon  anders  aus.  Erinnern  Sie  sich  an  die 
Bruchrechnungsstunden  in  der  Schule?  Wieviel  ist  3l/52  +  %!! 

Ohne  lang  zu  überlegen,  rechnen  wir  natürlich  um,  51/52  = 
0,9807692  und  %  =  0,75;  addiert  ist  das  Resultat  1,7307692  —  und 
schon  sind  Sie  mitten  in  den  Gleitkomma-Zahlen. 

Bei  obigem  Beispiel  gleitet  allerdings  noch  nichts.  Bei  sehr 
großen  oder  aber  auch  sehr  kleinen  Bruch-Zahlen  reicht  uns  — 
und  einem  Computer  —  nicht  der  Platz,  um  sie  darzustellen.  Die 
Zahl  0,000000000000000123  sprengt  jeden  normalen  Rahmen. 

Daher  schreiben  wir  sie  anders.  Wir  lassen  das  Komma  nach 
rechts  gleiten,  bis  es  die  erste  Ziffer,  die  von  0  verschieden  ist,  fin¬ 
det  und  für  jede  Null,  die  es  passiert  multiplizieren  wir  die  Zahl 
mit  10. 

Die  Zahl  oben  sieht  dann  so  aus: 

0,123  x  10  hoch  15  (eine  1  mit  15  Nullen). 

Die  Grundzahl  vom  heißt  »Mantisse«,  die  10  mit  Hochzahl  heißt 
»Exponent«. 

Alle  Commodore-Computer  verarbeiten  intern  alle  Zahlen  in 
dieser  Darstellung,  also  als  Gleitkommazahl  (siehe  auch  Assem¬ 
bler  Kurs  im  64’er-Magazin,  Ausgabe  11) 
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Assembler  # 
ist  keine  Alchimie 


ln  dieser  Folge  des  Assembler-Kurses  lernen  Sie  die  wichtigen  Arithmetik-Befehle 
des  Prozessors  kennen.  Anhand  von  Beispielen  und  Übungen  können  Sie  alle 
Schritte  am  Computer  miterieben.  Außerdem  wird  die  Frage  geklärt,  wie 
Assembler-Programme  in  Basic  eingebunden  werden. 


Neun  neue  Befehle  haben  wir 
in  der  letzten  Folge  kennen¬ 
gelernt  und  wir  wissen  nun,  wie 
unser  Computer  ganze  Zahlen 
(sogenannte  Integers)  abspei¬ 
chert.  Zur  Erinnerung:  Das  ge¬ 
schieht  im  Zweierkomplement- 
Format.  Das  Bit  7  einer  8-Bit-Zahl 
dient  dabei  als  Vorzeichen- 
Merkmal:  Wenn  es  0  ist,  liegt  ei¬ 
ne  positive  Zahl  vor,  die  genauso 
aussieht,  wie  wir  bislang  immer 
Binärzahlen  kannten.  Ist  das  Bit  7 
aber  eine  1,  dann  haben  wir  es 
mit  einer  negativen  Zahl  in  der 
Zweierkomplement-Darstellung 
zu  tun.  Wenn  wir  —  wie  unser 
Computer  —  zur  Verarbeitung 
ganzer  Zahlen  16  Bits  (also  2  By¬ 
tes)  verwenden,  dann  ist  eben 
Bit  15  anstelle  von  Bit  7  das  Vor¬ 
zeichenbit. 

Wenn  Sie  nun  am  Ende  der 
letzten  Folge  ein  bißchen  mit  sol¬ 
chen  Zahlen  gerechnet  haben, 
konnten  Sie  sicher  feststellen, 
daß  zwar  oft  das  richtige  Ergeb¬ 
nis  herauskam  —  aber  leider 
nicht  immer.  Warum  das  so  ist 
und  was  man  deswegen  noch 
beim  Arbeiten  mit  Zahlen  per 
Computer  beachten  muß,  soll  in 
dieser  Folge  dran  sein.  Damit 
wir  aber  nicht  nur  im  vergleichs¬ 
weise  trockenen  Zahlendschun¬ 
gel  herumirren,  sollen  Sie  heute 
endlich  auch  die  wichtigsten  Be¬ 
fehle  des  6502  (beziehungswei¬ 
se  6510)  zur  Arithmetik  kennen¬ 
lernen.  Außerdem  gibt  es  dazu 
noch  zwei  Flaggen  gratis  und 
die  Branch-Befehle  (schon  lange 
überfällig)  sollen  Ihnen  nun  ver¬ 
traut  werden.  Zunächst  aber 
noch  etwas  Zahlensalat: 


Herr  Carry  und  der 
V-Mann 


Keine  Angst,  wir  sind  nicht  ins 
Krimi-  oder  Agentenmilieu  ge¬ 
wechselt!  Wir  haben  es  mit  zwei 


Flaggen  zu  tun,  der  Carry-  und 
der  V-Flagge.  »To  carry«  heißt  auf 
deutsch  etwa  »tragen«.  In  der  Re¬ 
gisteranzeige  ist  diese  Flagge 
immer  mit  C  gekennzeichnet. 
Was  wird  denn  hier  getragen? 
Das  ergründen  wir  am  besten  an 
einem  Beispiel.  Dazu  rechnen 
wir  mit  normalen  Bmärzahlen 
(also  ohne  Rücksicht  auf  Vorzei¬ 
chenbits).  Wir  zählen  die  Zahlen 
128  und  130  zusammen: 

128 

+  130  + 


258  (1)00000010 

Das  Ergebnis  258  ist  richtig  — 
auch  in  der  Binärdarstellung  — 
nur  es  paßt  nicht  mehr  in  8  Bits. 
Ein  Bit  wurde  überTRAGEN  in 
ein  extra  dafür  vorgesehenes 
Plätzchen:  In  das  Carry-Bit.  Je¬ 
desmal  also,  wenn  so  ein  Über¬ 
trag  in  einer  Rechenoperation 
des  C  64  stattfindet,  zeigt  die 
Carry-Flagge  eine  1  (Bild  1). 

Je  nach  Art  der  von  uns  pro¬ 
grammierten  Aufgabe  können 
wir  nun  dieses  Carry-Bit  weiter¬ 
verarbeiten.  Es  gibt  Situationen, 
in  denen  man  es  einfach  ignorie¬ 
ren  darf  (dazu  kommen  wir 
gleich  noch)  oder  aber  solche, 


wo  man  es  weiter  in  der  Rech¬ 
nung  verwendet.  Schließlich 
kann  es  auch  noch  einen  Fehler 
anzeigen:  Dann  nämlich,  wenn 
das  größte  zulässige  Ergebnis 
1111 1111  sein  darf.  Natürlich  kann 
das  Carry-Bit  auch  gesetzt  wer¬ 
den,  wenn  man  in  der  Zweier¬ 
komplementform  rechnet.  Die 
Verhältnisse  sind  dann  aber  für 
ein  leicht  überschaubares  Bei¬ 
spiel  des  Übertrages  zu  ver- 


Wenn  wir  nämlich  mit  den 
Zweierkomplement-Zahlen 
rechnen,  dann  interessieren  uns 
auch  Fälle  wie  bei  der  Addition 
von  64  und  66: 

64  01000000 

+  66  +  01000010 


(-126)  10000010 

Das  ist  offensichtlich  falsch. 
Bei  der  Addition  ist  durch  das 
Zusammenzählen  der  Bits  6 
plötzlich  Bit  7  gesetzt  worden.  Da 
wir  es  aber  mit  einer  Zweier¬ 
komplementzahl  zu  tun  haben, 
bei  der  dieses  Bit  7  eine  negati¬ 
ve  Zahl  anzeigt,  folgt  ein  Fehler. 
Es  ist  also  von  Bedeutung,  so  ei¬ 
nen  Überlauf  (englisch:  'over- 


10000000  wicVcilt,  wie  Sie  gleich  sehen 
10000010  weiten. 


Bild  1.  Das  Carry-Bit  als  Bit  8  einer  Rechenoperation 


Bild  2.  Flußdiagramm  des 
Assemblerprogrammes  »Summe 
einer  arithmetischen  Reihe« 
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flow’)  erkennen  zu  können  um  ei¬ 
ne  entsprechende  programm- 
technische  Reaktion  zu  starten. 
Es  wird  die  Überlauf-Flagge  V 
auf  1  gesetzt.  Leider  ist  die  Sa¬ 
che  aber  nicht  so  einfach,  daß 
sie  immer  gesetzt  würde,  wenn 
von  Bit  6  nach  Bit  7  ein  Übertrag 
stattfindet.  Gesetzt  wird  diese  V- 
Flagge  nur  in  folgenden  zwei 
Fällen: 

1)  Es  findet  ein  Übertrag  von 
Bit  6  nach  Bit  7  statt,  aber  kein  äu¬ 
ßerer  Übertrag  (wie  beim 
Carry) 

2)  Es  findet  kein  interner  Über¬ 
trag  von  Bit  6  nach  Bit  7  statt,  aber 
ein  äußerer  Übertrag  passiert. 

Merken  kann  man  sich  das  am 
besten  so:  Immer  dann,  wenn 
gewissermaßen  das  Vorzei¬ 
chenbit  7  »versehentlich«  verän¬ 
dert  wurde,  wird  die  V-Flagge 
auf  1  gesetzt.  Das  ist  ein  harter 
Brocken!  Wir  sind  es  ja  gewohnt, 
daß  wir  uns  um  diese  Dinge 
beim  Computer  eigentlich  gar 
nicht  mehr  kümmern  müssen. 
Außerdem  würde  das  ja  erfor¬ 
dern,  daß  man  sich  bei  allen 
Operationen  vorher  überlegen 
muß,  welche  Zahlen  auftreten 
können  und  welche  Fehler  also 
durch  »versehentliches«  Vorzei¬ 
chenändern  passieren  können! 
Genauso  ist  es  —  in  der  Pro¬ 
grammierpraxis  wird  Ihnen 
aber  das  ganze  Problem  nicht 
mehr  so  groß  Vorkommen.  Wir 
wollen  uns  dieses  Zusammen¬ 
spiel  der  Überträge  von  Bit  6 
nach  Bit  7  und  von  Bit  7  nach  Bit 
8  (also  ins  Carry-Bit)  noch  an¬ 
hand  einiger  Beispiele  klarer 
machen. 

Im  obigen  Beispiel  der  Addi¬ 
tion  von  64  und  66  haben  wir  ei¬ 
nen  Fall  schon  behandelt:  Es 
fand  ein  Übertrag  von  Bit  6  nach 
Bit  7  statt,  aber  kein  äußerer 
Übertrag  ins  Carry-Bit.  Dcswc 
gen  wurde  dann  auch  die  V- 
Flagge  gesetzt.  Das  Problem 
läßt  sich  hier  ganz  einfach  lösen 
zum  Beispiel  durch  Verwendung 
von  16-Bit-Zahlen: 

64  0000000001000000 

+  66  +  0000000001000010 


130  0000000010000010 

Bei  16-Bit-Zahlen  ist  ja  Bit  15 
das  Vorzeichenbil,  welches  hier 
keine  Änderung  erfährt. 

Der  andere  Fall  tritt  auf  bei 
der  Addition  von  zwei  negativen 
Zahlen  wie  —125  und  64: 

-125  10000011 

-  64  11000000 


(+67)  (1)01000011 

Auch  das  ist  offensichtlich 
falsch:  Es  hat  wieder  »versehent¬ 
lich«  ein  Vörzeichenwechsel 
stattgefunden.  Dies  ist  also  der 
Fall,  wo  zwar  ein  Übertrag  ins 
Carry-Bit  stattfand  aber  kein 
Übertrag  von  Bit  6  nach  Bit  7. 


Auch  dieses  Problem  läßt  sich 
durch  Verwendung  von  16-Bit- 
Zahlen  lösen.  Eine  kleine  Trai¬ 
ningsaufgabe  für  Sie! 

Man  kann  also  sagen:  Immer 
dann,  wenn  bei  8-Bit-Rechnun- 
gen  der  mittels  Zweierkomple¬ 
mentzahlen  darstellbare  Be¬ 
reich  (127  bis  —128)  über-  oder 
unterschritten  wird,  fuhrwerkt 
man  im  Vorzeichen-Bit  herum 
und  verfälscht  das  Ergebnis. 
Dann  leuchtet  wie  eine  rote  Am¬ 
pel  die  Überlauf(V)-Flagge  auf 
und  sagt  uns,  daß  wir  besser  in 
diesen  Fällen  mit  16-Bit-Zahlen 
arbeiten  sollten. 

Nun  noch  zum  Ignorieren  des 
Carry-Bits,  das  ich  weiter  oben 
erwähnt  habe.  Bei  allen  8-Bit- 
Rechenoperationen  mit  Zweier¬ 
komplementzahlen  kann  das 
Carry-Bit  vernachlässigt  werden. 
Zwei  Beispiele  sollen  das  wieder 
illustrieren.  Wir  addieren  +4 
und  —2: 

+  4  00000100 

-2  11111110 

+ _  +  _ 

+2  (1)00000010 

Das  Carry-Bit  wird  außer  acht 
gelassen.  Anderes  Beispiel:  Wir 
addieren  zwei  negative  Zahlen, 
—4  und  —6: 

-4  11111010 


-2  11111110 
+  + 


Auch  hier  kann  man  (sogar: 
muß  man)  das  Carry-Bit  vernach¬ 
lässigen.  Beide  Ergebnisse  sind 
richtig. 

Nun  wissen  Sie  alles  über  die 
Art,  wie  unser  Rechner  mit  gan¬ 
zen  Zahlen  arbeitet.  Probieren 
Sie  mal  ein  paar  Aufgaben  aus 
zur  Übung. 

Wir  verlassen  jetzt  den  Zah¬ 
lendschungel  und  widmen  uns 
der  Praxis. 

Der  Computer  rechnet:  ADC,  CLC 

ADC  ist  der  erste  Arithmetik- 
Befehl  des  6502  (und  natürlich 
auch  des  6510),  den  wir  kennen- 
lemen,  Er  bedeutet  »add  with 
carry«,  also  »addiere  mit  Carry- 
Bit«.  An  einem  8-Bit-Beispiel  wol¬ 
len  wir  uns  das  mal  ansehen. 
ZAHL1  und  ZAHL2  sollen  addiert 
werden.  Beide  sollen  positive 
8-Bit-Zahlen  sein,  die  so  klein 
sind,  daß  kein  Überlauf  zu  erwar¬ 
ten  ist.  Die  ZAHL1  wird  in  den  Ak¬ 
ku  gegeben: 

LDA  #  ZAHL1 

Wenn  wir  nun  den  Befehl 
ADC  #ZAHL2 

folgen  lassen,  sorgt  die  ALU 
(arithmetisch-logische  Einheit, 
siehe  Folge  1)  dafür,  daß  beide 
Zahlen  addiert  werden  und  das 
Ergebnis  im  Akku  erscheint. 
ZAHL1  ist  dann  vom  Ergebnis 
überschrieben  worden.  An  sich 
ist  damit  alles  erledigt.  Weil  wir 
aber  häufig  wissen  wollen,  was 
denn  nun  bei  der  Addition  her¬ 
ausgekommen  ist,  speichern  wir 


den  Akku-Inhalt  noch  irgendwo 
ab  mittels  »STA  Speicherstelle«. 
Außerdem  war  da  ja  noch  die  Sa¬ 
che  mit  dem  Carry-Bit.  Wir  ha¬ 
ben  oben  festgestellt,  daß  bei  ei¬ 
ner  8-Bit-Addiiion  kein  Carry-Bit 
berücksichtigt  werden  soll.  Nun 
gibt  es  aber  eine  ganze  Menge 
von  Vorgängen  in  einem  Assem¬ 
bler-Programm,  die  das  Carry- 
Bit  beeinflussen.  Man  kann  ei¬ 
gentlich  vor  einer  Addition  nie 
ganz  sicher  sein,  ob  es  denn  nun 
1  oder  0  ist.  Weil  jedoch  ADC 
auch  das  Carry-Bit  mitaddiert, 
sollte  man  dafür  sorgen,  daß  es 
vor  dem  Zusammenzählen  wirk¬ 
lich  gelöscht  ist.  Dazu  gibt  es  den 
Befehl  CLC  was  die  Abkürzung 
für  »clear  carry«,  also  »lösche 
Carry-Bit«  ist.  Sei  ZAHL1  =  12  und 
ZAHL2  =  7,  dann  würde  unser 
vollständiges  8-Bit-Additions- 
Progrämmchen  also  lauten: 

1200  CLC 

1201  LDA  #$0C 

1203  ADC  #$07 

1205  STA  1500 

Sehen  wir  mal  davon  ab,  daß 
dieses  Programm  natürlich  un¬ 
sinnig  ist  (das  kann  man  ja  im 
Kopf  schneller  rechnen!),  dann 
erkennen  wir:  CLC  ist  ein  1-By- 
te-Befehl  mit  impliziter  Adressie¬ 
rung,  welcher  sich  nur  auf  die  C- 
Flagge  (also  das  Carry-Bit)  aus¬ 
wirkt.  ADC  ist  in  der  hier  ver- 
a{wenddfcJ;  Form  ein  2-Byte-Be- 
fehl  und  liegt  in  der  »unmittel¬ 
bar«  genannten  Adressierung 
vor.  Wie  wir  oben  gesehen  ha¬ 
ben,  kann  ADC  —  je  nach  Art 
der  Rechnung — auf  einige  Flag¬ 
gen  wirken:  Da  wären  zunächst 
natürlich  die  V-Flagge  und  die 
C-Flagge.  Dann  aber  kann  beim 
Auftreten  eines  gesetzten  Bit  7 
auch  die  N-Flagge  und  beim 
Überschreiten  von  $FF  eventuell 
auch  die  Z-Flagge  verändert 
werden. 

Viel  interessanter  wird  unser 
Mini-Programm  schon,  wenn 
man  anstelle  von 
1201  LDA  #$0C 

jetzt  die  absolute  Adressierung 
verwendet,  zum  Beispiel 
1201  LDA  1400 

Weil  das  em  3-Byte-Befehl  ist, 
verschiebt  sich  natürlich  der 
Rest  des  Programmes  um  I  Byte. 
So  kann  man  immerhin  schon  zu 
unterschiedlichen  Inhalten  von 
1400  den  gleichen  Betrag  addie¬ 
ren. 

Am  interessantesten  aller¬ 
dings  ist  die  Tatsache,  daß  auch 
ADC  absolut  adressierbar  ist. 
Wir  können  so  zum  Beispiel  den 
Inhalt  der  Speicherzelle  1300 
zum  Inhalt  der  Zeile  1400  hinzu¬ 
zählen  und  dann  das  Ergebnis  in 
1500  ablegen: 

1200  CLC 

1201  LDA  1400 

1204  ADC  1300 

1207  STA  1500 

Hier  ist  der  ADC-Befehl  dann 
3  Bytes  lang  geworden. 


Vergessen  Sie  bitte  nicht  — 
das  gilt  vor  allem  für  die  nachfol¬ 
genden  Rechenoperationen  — 
dann,  wenn  die  Wahrscheinlich¬ 
keit  besteht,  daß  der  Dezimal- 
Modus  eingeschaltet  ist  (also  die 
D-Flagge  auf  1  gesetzt  ist),  noch 
den  Befehl  CLD  vor  solche  Pro¬ 
gramme  zu  stellen. 

Solche  8-Bit- Rechnungen  kom¬ 
men  recht  häufig  vor:  Wenn  man 
in  Schleifen  nicht  mit  mehrfach 
wiederholten  INX  (beziehungs¬ 
weise  INY  oder  INC,  DEX,  DEY 
oder  DEC)  arbeiten  will,  addiert 
man  eben  immer  die  Sprung¬ 
weite  mittels  ADC  hinzu.  Der  Ak¬ 
ku  kann  nicht  als  Zähler  dienen, 
denn  es  gibt  für  ihn  keinen  Be¬ 
fehl.  der  dem  INX  und  so  weiter 
vergleichbar  wäre,  weswegen 
man  ihn  —  sollte  es  nötig  sein  — 
mittels  ADC  hochzählt. 

Häufiger  und  in  der  Praxis  be¬ 
deutender  sind  16-Bit-Rech- 
nungen.  Wie  Sie  sicher  noch  aus 
den  vorangegangenen  Folgen 
wissen,  teilt  man  so  eine  16-Bit- 
Zahl  auf  in  zwei  Bytes  (das  LSB 
und  das  MSB).  Nehmern  wir  für 
unser  nachfolgendes  Beispiel 
wieder  an,  daß  die  Zahlen  so  ge¬ 
baut  sind,  daß  kein  Überlauf  zu 
befürchten  ist.  ZAHL1  hätten  wir 
vorher  in  die  Speicherstellen 
1300  (LSB)  und  1301  (MSB)  ge¬ 
packt,  ZAHL2  liegt  in  den  Zellen 
1400  (LSB)  und  1401  (MSB).  Zu¬ 
nächst  wieder  die  Vorberei¬ 
tungsmaßnahmen: 

1200  CLD 

1201  CLC 

Dabei  ist  CLD  nicht  immer  nö¬ 
tig.  wie  schon  gesagt.  Nun  ad¬ 
dieren  wir  zuerst  die  LSBs: 


1202 

LDA 

1300 

1205 

ADC 

1400 

1208 

STA 

1500 

Ein  Überlauf  kann  hier  nicht 
stattgefunden  haben,  denn  das 
Vorzeichenbit  ist  ja  im  MSB  als 
Bit  15  enthalten,  wohl  aber  kann 
ein  Übertrag  stattgefunden  ha¬ 
ben:  Das  Ergebnis  könnte  grö¬ 
ßer  als  255  ($FF)  gewesen  sein. 
War  das  der  Fall,  dann  ist  jetzt  ei¬ 
ne  1  im  Carry-Bit.  Wir  addieren 


nun  die  MSBs: 

120B 

LDA 

1301 

120E 

ADC 

1401 

1211 

STA 

1501 

Egal,  was  im  Carry-Bit  stand: 
Es  wurde  jetzt  hinzuaddiert.  Das 
Ergebnis  unserer  Rechnung 

steht  nun  in  1500  (LSB)  und  1501 
(MSB).  Sehen  wir  uns  das  ganze 
nochmal  am  Zahlenbeispiel  an. 
Wir  addieren  die  Zahlen  2176 
(binär:  0000  1000  1000  0000)  und 
1009  (binär:  0000  0011  1111  0001). 
Die  Speicherinhalte  sind  dann: 


1300  10000000  LSB  Zahll 

1301  00001000  MSB 

1400  11110001  LSB  Zahl2 

1401  00000011  MSB 


Jetzt  addieren  wir  die  LSBs: 


1300 

1400 

Carry 


10000000 

11110001 

0 
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1500  01110001 

Carry:  1 

Nun  folgt  der  zweite  Teil  der 
Addition  mit  den  MSBs: 


1301  00001000 

1401  00000011 

Carry:  1 


1501  00001100 

Damit  steht  nun  das  Ergebnis 
3185  (binär  0000110001110001) 
säuberlich  aufgeteilt  in  LSB 
(Speicher  1500)  und  MSB  (Spei¬ 
cher  1501)  fest.  Das  Carry-Bit 

steht  auch  nach  vollendeter 
Rechnung  noch  auf  1,  so  daß  es 
vor  erneuter  Addition  wieder 
mit  CLC  zu  löschen  ist. 

Damit  wäre  alles  über  die  Ad¬ 
dition  berichtet.  Wie  immer  in 
Programmiererkreisen  die 
Empfehlung:  Üben,  üben,.... 

Wir  wenden  uns  jetzt  der  ge¬ 
genläufigen  Operation  zu:  Der 
Subtraktion. 


Noch  mehr  Rech¬ 
nen:  SBC,  SEC 


Daß  das  Abziehen  von  Zahlen 
im  Computer  durch  das  Hinzu¬ 
zählen  des  Zweierkomplemen¬ 
tes  geschieht,  haben  wir  mit  viel 
Gehirnschmalzverbrauch  schon 
in  vorangegangenen  Abschnit¬ 
ten  erfahren.  Nun  sollen  Sie  die 
dazu  nötigen  Befehlsworte  des 
Assemblers  kennenlernen.  Zu¬ 
nächst  einmal  ist  da  SBC.  Das 
heißt  »subtract  with  carry«  oder 
auf  deutsch  etwa  »ziehe  unter 
Berücksichtigung  des  Carry-Bits 
ab«.  Ebenso  wie  bei  der  Addi¬ 
tion  mit  ADC,  wirkt  das  Argu¬ 
ment  des  SBC-Befehls  auf  den 
Akku-Inhalt  ein  —  wobei  das  Er¬ 
gebnis  im  Akku  landet,  diesen 
also  überschreibt.  Komplizierter 
ist  hier  die  Verwendung  des 
Carry-Bits,  worauf  wir  aber  nicht 
detailliert  eingehen  wollen. 
(Wen  es  interessiert:  Nachlesen 
in  L.A.  Leventhal,  »6502  Pro¬ 
grammieren  in  Assembler«.  3. 
Auflage,  München  1983,  Seite 
3-100).  Für  uns  soll  einfach  die 
nicht  ganz  korrekte  Analogie 
zum  »Borgen«  bei  der  Subtrak¬ 
tion  ausreichen.  Für  den  Fall, 
daß  ein  solches  Borgen  eintre- 
ten  muß,  sollte  auch  das  dazu  nö¬ 
tige  Carry-Bit  vorhanden  sein 
(also  auf  1  gesetzt  sein).  Wie  Sie 
sicherlich  schon  erraten  haben, 
heißt  SEC  »set  carry«,  also  »setze 
das  Carry-Bit«  (auf  1). 

Merke:  Vor  einer  Addition  immer  Lö¬ 
schen  des  Carry-Bits  mit  CLC, 
vor  einer  Subtraktion  immer  Setzen  des 
Carry-Bits  mit  SEC! 

Zwei  Beispiele  für  die  Subtrak¬ 
tion  sollen  das  bisher  gesagte 
erläutern:  Zunächst  eine  8-Bit- 
Subtraktion  von  ZAHL1  (in  Spei¬ 
cherzelle  1300)  minus  ZAHL2  (in 
Zelle  1400).  Ds  Ergebnis  wird 
nach  1500  geschrieben: 


1200 

CLD 

1201 

SEC 

1202 

LDA  1300 

1205 

SBC  1400 

1208 

STA  1500 

SBC  kann — wie  hier  —  absolut 
adressiert  werden,  aber  auch 
unmittelbar  (also  zum  Beispiel 
SBC  $40).  Der  Befehl  ist  dann  im 
ersten  Fall  ein  3-,  im  anderen  Fall 
ein  2-Byte-Befehl.  SEC  ist  eben¬ 
so  wie  vorher  schon  CLC  ein  im¬ 
plizit  adressierbarer  1-Byte- 
Befehl. 


adresse  des  Programmes  und 
man  kann  diesen  SYS-Befehl  ei¬ 
gentlich  wie  eine  Art  »GOTO 
Maschinenprogramm-Start¬ 
adresse«  ansehen.  Nichts  hin¬ 
dert  uns  also,  auf  diese  Weise  ei¬ 
gene  Assembler-Programme 
anzuspringen!  Das  Problem 
liegt  nun  nur  noch  darin,  wie 
man  Parameter,  die  unsere  Ma¬ 
schinenroutine  benötigt,  über¬ 
geben  kann.  Eine  offensichtli¬ 
che  —  aber  leider  auch  relativ 
langsame  —  Methode  ist  das 


Zahlen  aufzubewahren  und  zwar 
in  $1310/1311  (A  in  LSB/MSB- 
Format)  und  in  $1320/1321  (D  im 
gleichen  Format).  Das  Ergebnis 
soll  in  $1400/1401  zu  finden  sein. 
Das  Maschinenprogramm  legen 
wir  nach  $1200. 

Zuerst  kümmern  wir  uns  um 
das  Basic-Aufrufprogramm: 

Zu  diesem  Programm  gibt  es 
nur  noch  zu  bemerken,  daß  die 
Zahlen  bei  POKE,  PEEK  oder 
SYS  die  Dezimalwerte  unserer 
oben  gewählten  Adressen  sind. 


Das  zweite  Beispiel  ist  eine 
16-Bit  Subtraktion.  In  den  Spei¬ 
chern  steht  vor  dem  Aufruf  die¬ 
ser  kleinen  Routine: 

1300  ZÄHL]  LSB 

1301  ZAHL1  MSB 

1400  ZAHL2  LSB 

1401  ZAHL2  MSB 

Das  Ergebnis  soll  nach  1500 

(LSB)  und  1501  (MSB)  gebracht 
werden: 

1200  CLD 

1201  SEC 

1202  LDA  1300 

1205  SBC  1400 

1208  STA  1500 

jetzt  sind  die  beiden  LSBs  von¬ 
einander  abgezogen  und  die 
Differenz  abgespeichert  als  LSB 
des  Erebnisses. 

120B  LDA  1301 

120E  SBC  1401 

1211  STA  1501 

Damit  ist  die  Aufgabe  been-  ^ 
det.  Auch  die  MSBs  sind  subtra-  p  ' 
hiert  und  das  MSB  des  Ergebnis¬ 
ses  steht  in  1501. 

SBC  beeinflußt  die  gleichen 
Flaggen  wie  der  Befehl  ADC. 
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REM  **ÄUFRUF  SUMME  ARITHMETISCHE  REIHE** 
POKE5120,0:POKE5121,0:REM  ERGEBNISSPEICHER  AUF 
NULL 

PRINTCHR$(147)CHR$(17)CHR$(17) 

INPUT’ÄNZAHL  DER  GLIEDER  N=”;N 
IFN<1  ORN>  255  THEN  PRINT  CHR$(17)”1  <  =  N 
<  =255”:GOTO40 

POKE4864.N :REM  EINSPEICHERN  VON  N 
POKE4880,1:POKE4881,0:POKE  4896,1: 

POKE4897,0:REM  EINSPEICHERN  VON  A  UND  D 
SYS4608:REM  AUFRUF  UNSERES  MASCHINENPRO¬ 
GRAMMES 

M  =  PEEK(5121):L  =  PEEK(5120):REM  AUSLESEN  DES  ER¬ 
GEBNISSES 

E  =  256*M  +  L:PRINTCHR$(17)CHR$(17) 

PRINT”DIE  SUMME  DER  ERSTEN  ”N”  GANZEN  ZÄHLEN 

IST:”:PRINTE 

END 


Ein  Programm¬ 


projekt 


Damit  die  so  kennengelernten 
Arithmetik-Befehle  nicht  so 
trocken  auf  weiter  Flur  stehen, 
wollen  wir  nun  ein  Programm 
entwickeln,  aus  dem  zweierlei 
zu  lernen  ist: 

1)  Die  Anwendung  bisher  ge¬ 
lernter  Befehle  und 

2)  ein  häufig  angewendetes  Ver¬ 
fahren,  Assemblerprogramme 
in  Basic-Programme  einzubin¬ 
den. 

Besonders  dieser  2.  Aspekt 
scheint  noch  vielen  Lesern  un¬ 
klar  zu  sein  (das  zeigen  mir  Zu¬ 
schriften).  Es  gibt  eine  ganze 
Reihe  von  Möglichkeiten,  zum 
Einbau  von  Assembler-Routinen 
in  Basic-Programme:  die  wer¬ 
den  wir  alle  nach  und  nach  ken¬ 
nenlernen.  Von  Ihnen  sicherlich 
schon  häufig  angewendet  wur¬ 
de  der  SYS-Befehl  (zum  Beispiel 
für  SYS  58640  und  vorherigem 


POKEn  der  Werte  im  LSB/MSB- 
Format  in  die  Speicherzellen, 
^j^nen  sie  sich  unser  ML- 
gramm  dann  abholt.  Wir  wol¬ 
len  dieses  Verfahren  nun  an  ei¬ 
nem  Programmbeispiel  verwen¬ 
den. 

Eine  arithmetische  Reihe  wer¬ 
den  viele  von  Ihnen  schon  ken¬ 
nen.  Wenn  man  A  als  erstes 
Glied,  D  als  Differenz  und  N  als 
die  Anzahl  der  Glieder  bezeich¬ 
net,  dann  ist  die  Summe  einer 
solchen  Reihe: 

S  =  A  +  (A  +  D)+(A+2*D)  + ... 
usw. . . .  +  (A + (N-1)*D) 

Ein  Beispiel  ist  die  Summe  der 
ersten  zehn  ganzen  Zahlen: 
S=l+2+3+4+5+6+7+8+9+10 

Hier  ist  A  =  l,  D  =  1  und  N  =  10. 
Daß  die  Summe  S  im  Beispiel  55 
ist,  kann  man  schnell  berech¬ 
nen,  was  aber,  wenn  wir  wesent¬ 
lich  mehr  als  nur  zehn  Glieder 
haben?  Es  gibt  natürlich  auch 
Formeln  zur  Berechnung  von  S. 
Aber  eigentlich  ist  es  ganz  reiz¬ 
voll,  ohne  solche  Formeln  den 
Computer  die  Summe  bilden  zu 
lassen.  Wir  bauen  also  ein  Pro¬ 
gramm  zur  Berechnung  der 
Summe  der  ersten  N  ganze  Zah¬ 
len,  wobei  N  frei  gewählt  wer¬ 
den  kann.  Das  Ergebnis  soll  eine 
16-Bit-Zahl  sein,  also  nicht  grö¬ 
ßer  als  32767.  Das  beschränkt 
uns  bei  N  auf  Werte  von  1  bis  255 
(Warum,  können  Sie  ja  mal  mit 


Nun  endlich  zum  Assembler¬ 
programm.  Sehen  Sie  sich  dazu 
bitte  das  Flußdiagramm  im  Bild 
2  an. 

Wir  bereiten  den  Ablauf  vor, 
indem  wir  aus  $1300  die  Anzahl 
der  Glieder  insX-Register  laden 
und  zur  Vorbereitung  der  Addi¬ 
tion  das  Carry-Bit  löschen. 
Schalten  Sie  also  bitte  den 
SMON  ein  und  tippen  Sie  A1200 
<  RETURN  >.  Es  erscheint  die 
Startadresse  1200.  Jetzt  können 
Sie  Zeile  für  Zeile  das  Assem¬ 
bler-Programm  eingeben  (nach 
jeder  Zeile  ein  RETURN,  das  die 
nächste  Zeilennummer  erzeugt): 
1200  LDX  1300 

1203  CLC 

Die  nächsten  sechs  Zeilen 
summieren  jeweils  das  neueste 
Glied  zur  bis  dahin  erzeugten 
Summe.  Jetzt  zu  Beginn  ist 
$1400/1401  noch  leer  und  in 
$1310/1311  steht  noch  das  An¬ 
fangsglied  A  =  l.  Später  mit 
Durchlaufen  der  Schleife,  steht 
in  $1400/1401  immer  die  bis  da¬ 
hin  gebildete  Summe  und  in 
$1310/1311  das  letzte  Glied  der 
Reihe.  Es  handelt  sich  um  die 
oben  kennengelernte  16-Bit- 
Addition: 

1204  LDA  1400 

1207  ADC  1310 

120A  STA  1400 

Das  neue  LSB  ist  berechnet 
und  in  $1400  geschrieben. 


POKE214, Zeile  und  POKE211, 
Spalte  zum  Setzen  des  Cursors 
an  die  Stelle  Zeile,  Spalte).  Damit 
haben  Sie  ein  Maschinenpro¬ 
gramm  aufgerufen,  das  im  Sy¬ 
stem  unseres  Computers  schon 
enthalten  ist.  58640  ist  die  Start¬ 


dem  fertigen  Programm  auspro¬ 
bieren).  N  benötigt  also  nur  1  By¬ 
te  Speicherplatz  und  soll  in  $1300 
abrufbar  sein.  A  soll  1  sein  eben¬ 
so  wie  D.  Für  eventuelle  Pro¬ 
grammänderungen  ist  es  aber 
sinnvoll,  A  und  D  als  16-Bit- 


1200  LDA  1401 

1210  ADC  1311 

1213  STA  1401 

Das  war  nun  noch  das  neue 
MSB.  Als  nächstes  berechnen 
wir  das  momentan  letzte  Glied 
der  Reihe  durch  Addieren  von  D 
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zum  alten  letzten  Glied.  Das  ent¬ 
spricht  dem  Basic-Befehl 
A  =  A+D  in  einer  Schleife.  Dies 
ist  eine  neue  16-Bit-Addition, 
weshalb  wir  wieder  CLC  vorge¬ 
ben  müssen: 

1216  CLC 

1217  LDA  1310 

121A  ADC  1320 

121D  STA  1310 

Das  war  wieder  das  LSB.  Nun 
zum  MSB: 

1220  LDA  1311 

1223  ADC  1321 

1226  STA  1311 

Wir  zählen  nun  das  X-Register 
um  1  herunter  und  prüfen,  ob  es 
schon  Null  geworden  ist,  ob  also 
schon  alle  N-Glieder  summiert 
worden  sind: 

1229  DEX 

122A  BNE  1203 

Wenn  noch  nicht  alle  Glieder 

berechnet  und  summiert  sind, 
kehren  wir  an  den  Schleifenan¬ 
fang  zurück.  Ansonsten  sprin¬ 
gen  wir  zurück  ins  Basic- 
Aufrufprogramm: 

122C  RTS 

Wenn  Sie  beide  Programme 
eingetippt  haben,  dann  spei¬ 
chern  Sie  sie  vorsichtshalber  ab 
(das  Assemblerprogramm  mit 
dem  S-Befehl  des  SMON).  Beim 
neuen  Einladen  brauchen  Sie 
den  SMON  nicht  mehr.  Nach 
dem  Laden  unseres  Maschinen¬ 
programmes  (mit  ,8.1  bei  Disket¬ 
te  oder  .1,1  bei  Kassette)  geben 
Sie  NEW  <  RETURN  >  ein,  da¬ 
mit  die  Zeiger  vor  dem  Einladen 
des  Basic-Programmes  wieder 
auf  Normalwerte  gesetzt  wer¬ 
den.  Zwischen  dem  dann  einge¬ 
ladenen  Basic-Programm  und 
unserer  Assembler-Routine  ist 
genug  Platz.  Sollten  Sie  aber  ir¬ 
gendwann  mal  das  Basic- 
Programm  vergrößern,  schüt¬ 
zen  Sie  bitte  unseren  Bereich  ab 
$1200. 

Unser  Assembler-Beispiel  ist 
so  aufgebaut,  daß  auch  A  und  D 
variabel  gehalten  sind.  Sie  müß¬ 
ten  dann  nur  noch  Eingabemög¬ 
lichkeiten  im  Basic-Programm 
schaffen  und  anstelle  der  Werte 
1  oder  0  in  Zeile  70  die  LSBs  und 
MSBsder  von  Ihnen  eingegebe¬ 
nen  Größen  A  und  D  einPOKEn. 
Auf  diese  Weise  sind  dann  belie¬ 
bige  ganzzahlige,  arithmetische 
Reihen  berechenbar,  wie  zum 
Beispiel  S  =  7  +  10  +  13  +  16  +  ... 
und  so  weiter.  Das  überlasse  ich 
Ihrer  Basic-Programmierfertig- 
keit.  Nur  eines  noch:  Sie  müssen 
darauf  achten,  daß  die  Summe  S 
nicht  größer  als  32767  wird.  Ih¬ 
rer  Phantasie  sind  —  wie  immer 
in  diesem  Metier  —  keine  Gren¬ 
zen  gesetzt.  Sie  könnten  sich  ja 
mal  überlegen,  wie  man  größe¬ 
re  Summen  zulassen  kann  (wer 
sagt  denn,  daß  wir  Zahlen  im¬ 
mer  nur  in  2  Bytes  darstellen 
dürfen?).  Oder  Sie  könnten  sich 
überlegen,  welches  eindeutige 
Merkmal  auftritt,  sobald  der  Ma¬ 
ximalwert  überschritten  wird 


(em  Tip:  Lesen  Sie  doch  mal  den 
Abschnitt  über  die  V-Flagge 
nach). 


Die  Branch-Befehle 


Der  6502  (und  auch  der  damit 
identische  6510)  kennt  acht  be¬ 
dingte  Verzweigungen,  von  de¬ 
nen  wir  bisher  BNE  schon  ver¬ 
wendet  haben.  Alle  diese 
Branch-Befehle  (von  branch  = 
verzweigen)  prüfen  Flaggen  des 
Statusregisters. 

BNE  und  BEQ  beziehen  sich 
auf  die  Z-Flagge,  die  anzeigt, ob 
im  Verlauf  der  letzten  Operation 
eine  Null  aufgetreten  ist.  Ist  das 
der  Fall,  steht  in  der  Z-Flagge  ei¬ 
ne  1.  BNE  verzweigt  zur  angege¬ 
benen  Adresse,  wenn  in  der  Z- 
Flagge  eine  0  enthalten  ist.  BEQ 
(branch  if  equal  zero  =  verzwei¬ 
ge,  wenn  gleich  Null)  tut  das 
dann,  wenn  die  Z-Flagge  auf  1 
gesetzt  ist.  Da  muß  man  etwas 
aufpassen,  daß  man  sich  nicht 
vertut! 

BCC  und  BCS  haben  ihre  Auf¬ 
merksamkeit  auf  die  C-Flagge, 
also  das  Carry-Bit  gerichtet. 
BCC  kommt  vom  englischen 
»branch  if  carry  clear«,  was 
heißt:  »verzweige,  wenn  das 
Carry-Bit  gelöscht  ist«.  Ein  ge- 


Sprünge,  damit  absolviert  wer¬ 
den.  R,  Mansfield  warnt  sogar 
ausdrücklich  in  semem  Buch 
»Machine  language  for  begin- 
ners«,  einem  in  den  USA  sehr 
verbreitetem  Werk,  vor  der  Ver¬ 
wendung  der  Befehle  BPL  und 
BMI! 

Dafür  liegt  absolut  kein  ein¬ 
sehbarer  Grund  vor.  Viele  pro¬ 
grammtechnischen  Aufgaben¬ 
stellungen  lassen  sich  elegant 
und  leicht  mit  BPL,  BMI,  BVS  und 
BVC  lösen.  Man  muß  nur  wissen, 
wie  sie  funktionieren  und  —  da 
liegt  vermutlich  der  Hund  be¬ 
graben  —  man  muß  auch  die  Art 
kennen,  wie  Zahlen  vom  Compu¬ 
ter  behandelt  werden.  Genau 
das  aber  wissen  wir  und  deswe¬ 
gen  sollten  wir  diese  Kenntnis 
für  uns  auch  nutzen.  Also  ohne 
Scheu  heran  an  die  verfehmten 
Befehle! 

BMI  und  BPL  (branch  on  minus 
=  verzweige,  wenn  negativ  und 
branch  on  plus  =  verzweige, 
wenn  positiv)  hängen  mit  der 
Negativ-Flagge  N  zusammen. 
Das  Rätsel  dieser  Flagge  konnte 
in  den  vorangegangenen  Folgen 
gelöst  werden:  Immer  dann, 
wenn  bei  einer  Operation  eine 
Zahl  auftrat,  deren  Bit  7  eine  1 
war,  wurde  die  N-Flagge  auf  1 
gesetzt.  Wir  wissen  jetzt,  daß 
dieses  Bit  bei  8-Bit-Zahlen  das 
Vorzeichenbit  ist.  Bit  7  sagte  uns 


setztes  Carry-Bit  (also  Inhalt  =  1) 
veranlaßt  BCS  (»branch  if  carry  bc-  '.ner  1,  daß  eine  negative 
set«  =  verzweige,  wenn  das  Zahl  im  Zweierkomplement- 


Carry-Bit  gesetzt  ist)  zum  Sprung 
an  die  angegebene  Adresse. 

Diese  vier  bedingten  Verzwei¬ 
gungen  sind  an  sich  die  bedeut¬ 
samsten  und  am  häufigsten  ver¬ 
wendeten  Branch-Befehle.  Man 
kann  wohl  getrost  sagen,  daß 
über  90%  der  von  Programmie¬ 
rern  verwendeten  bedingten 


Format  vorliegt  oder  aber  über¬ 
haupt  ein  Speicherzelleninhalt 
vorhanden  ist,  der  größer  als 
0111  1111  =  127  ist.  BMI  führt  zum 
Sprung  in  diesem  Fall,  weil  die 
N-Flagge  auf  1  steht.  Andern¬ 
falls  führt  BPL  zur  Verzweigung. 

Ebenso  einfach  sind  BVS  und 
BVC  zu  erklären:  Sie  beziehen 


sich  auf  die  V-Flagge,  unsere  ro¬ 
te  Ampel,  die  Überlauf  bei  Re¬ 
chenoperationen  anzeigt.  Kann 
es  was  bequemeres  geben  zur 
Behandlung  solcher  Fehlrech¬ 
nungen  als  ein  »branch  on  over- 
flow  set«  =  »verzweige,  falls  die 
Überlauf-Flagge  gesetzt  ( =  1)  ist« 
mit  BVS?  Oder  anders  herum  bei 
BVC  »branch  on  overflow  clear« 
=  »verzweige  bei  freier  Über¬ 
lauf-Flagge«.  Wenn  man  —  wie 
Sie  jetzt  nach  dieser  Folge  — 
weiß,  unter  welchen  Umständen 
diese  V-Flagge  auf  1  gesetzt 
wird,  sollte  man  ohne  Skrupel 
BVS  und  BVC  ausgiebig  benut¬ 
zen.  Man  könnte  damit  zum  Bei¬ 
spiel  programmieren,  daß  die 
Rechengenauigkeit  automatisch 
von  16-Bit  auf  24-  oder  32-  (oder 
wie  es  gerade  beliebt)  Bit  gestei¬ 
gert  wird,  ohne  daß  man  sich  bei 
jeder  Programmaufgabe  Ge¬ 
danken  über  das  größtmögliche 
Ergebnis  machen  muß.  Dazu 
aber  ein  andermal  mehr. 

Alle  hier  vorgestellten  Branch- 
Befehle  sind  ebenso  wie  BNE 
2-Byte-Befehle,  was  an  der  spe¬ 
ziellen  Art  der  Adressierung 
liegt:  Der  relativen  Adressie¬ 
rung. 

Eigentlich  hatte  ich  Ihnen  ja 
versprochen,  diese  relative 
Adressierung  zusammen  mit 
den  Branch-Befehlen  zu  erklä¬ 
ren.  Ich  werde  ihr  aber  lieber  ei¬ 
nen  eigenen  Abschnitt  widmen, 
weil’s  zum  genauen  Verständnis 
doch  etwas  mehr  an  Aufwand 
braucht.  Die  nächste  Folge  fängt 
dann  damit  an,  abgemacht? 

Wie  die  anderen  Folgen  auch, 
soll  auch  diese  hier  noch  mit  ei¬ 
ner  Tabelle  enden,  in  der  die 
neu  gelernten  Befehle  mit  Zube¬ 
hör  gezeigt  sind. 

(Heimo  Ponnath/gk) 


Befehls- 

Adressierung 

Byte- 

Code 

Dauer  Beeinflussung 

wort 

an- 

in 

von  Flaggen 

zahl 

Taktzy¬ 

klen 

ADC 

unmittelbar 

2 

69 

105 

2 

N,V,Z,C 

absolut 

3 

6D 

109 

4 

2 

CLC 

implizit 

1 

18 

24 

0-  C 

SBC 

unmittelbar 

2 

E9 

233 

2 

N.V.Z.C 

absolut 

3 

ED 

237 

4 

SEC 

implizit 

1 

38 

56 

2 

1  -  C 

BEQ 

relativ 

2 

F0 

2 

keine  Änderung 

BCC 

relativ 

2 

90 

2 

keine  Änderung 

BCS 

relativ 

2 

B0 

2 

keine  Änderung 

BMI 

relativ 

2 

30 

2 

- 1  keine  Änderung 

BPL 

relativ 

2 

10 

2 

keine  Änderung 

BVC 

relativ 

2 

50 

2 

keine  Änderung 

j  BVS 

relativ 

2 

70 

2 

▼  keine  Änderung 

+  1  bei  Verzweigung 
+  2  bei  Überschreiten 
einer  Seitengrenze 

Tabelle:  Die 

11  neuen  Befehle 
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C  64 


In  die  Geheimnisse  der  Floppy 


eingetaucht 


ln  den  letzten  beiden  Folgen  sind  die  Möglichkeiten,  die  Basic  bietet, 
ausgeschöpft  worden.  Heute  soll  deswegen  die  Bedienung  der  Floppy 
in  Maschinensprache  im  Vordergrund  stehen. 


Wenn  wir  in  dieser  Folge  von 
Routinen  sprechen,  die  im 
Betriebssystem  stehen,  so  wer¬ 
den  wir  die  in  Tabelle  1  darge¬ 
stellten  Kürzel  verwenden,  die 
Sie  übrigens  auch  in  Editorpro¬ 
grammen  gut  benutzen  können. 
FILPAR  und  FILNAM 

Bei  OPEN,  LOAD  und  ähnli¬ 
chen  Befehlen  müssen  Sie  ent¬ 
sprechenden  Routinen  mittei- 
len,  welches  File  Sie  wo  öffnen 
wollen.  Um  Ihnen  eine  »Herum¬ 
wurstelei«  in  der  Zeropage  zu  er¬ 
sparen,  wo  Sie  die  einzelnen  An¬ 
gaben  von  Hand  setzen  müßten, 
hat  das  Betriebssystem  zwei  ent¬ 
sprechende  Routinen  imple¬ 
mentiert.  FILPAR  setzt  für  Sie  die 
einzelnen  Fileparameter.  Diese 
müssen  der  Routine  in  den  Pro¬ 
zessorregistern  übergeben  wer¬ 
den: 

—  Filenummer  (Akku) 

—  Geräteadresse  (X-Register) 

—  Sekundäradresse  (Y-Register) 
Ein  Beispiel: 

Sie  wollen  für  ein  File  mit  der 
Nummer  1,  der  Geräteadresse  8 
und  der  Sekundäradresse  15 
(Kommandokanal  der  Floppy) 
die  entsprechenden  Filepara¬ 
meter  setzen: 


Und  wieder  ein  Beispiel.  Um 
das  Directory-File  mit  dem  Na¬ 
men  »$«  anzusprechen,  geben 
Sie  bitte  folgende  Befehle  ein: 


Sie  müssen  also  wissen,  wo 
der  Filename  im  Speicher  steht 
und  wie  lang  er  ist.  Dies  ist  aber 
im  allgemeinen  kein  Problem. 
Auf  die  gleiche  Weise  können 
Sie  der  Floppy  über  den  Kom¬ 
mandokanal  auch  Befehle  sen¬ 
den,  wie  Sie  in  der  letzten  Folge 
vorgestellt  wurden.  Das  entsprä¬ 
che  der  Basic-Sequenz: 

OPEN  x,  8,  15,  "befehl" 
Natürlich  können  Sie  auch  alle 
Parameter  von  Hand  setzen,  be¬ 
ziehungsweise  noch  einmal  le¬ 
sen.  Wo  sich  die  einzelnen  Para¬ 
meter  in  der  Zero-Page  nach 
Ausführung  dieser  und  der  an¬ 
deren  Routinen  befinden,  ist  in 
Tabelle  2  angegeben. 


übergeben  werden  muß.  Gerä¬ 
teadresse  und  Sekundäradres¬ 
se  sucht  sich  der  C  64  aus  einer 
Tabelle  heraus,  auf  die  wir  spä¬ 


ter  noch  zu  sprechen  kommen: 

LDA  #$01  ;  Filenummer 

JSR  CLOSE  in  Akku 

Der  Filename  wird  beim 
Schließen  überhaupt  nicht  mehr 
benötigt. 

LISTEN  und  UNLIST,  TALK  und  UNTALK 

Nach  dem  Öffnen  eines  Files 
kann  die  Datenübertragung 
noch  nicht  beginnen.  Sie  müssen 
dem  entsprechenden  Gerät  zu¬ 
erst  mitteilen,  ob  es  senden  oder 
empfangen  soll. 

Bestes  Beispiel  ist  wieder  der 
Kommandokanal.  Über  diesen 
kann  die  Floppy  sowohl  Befehle 
empfangen,  als  auch  Fehlermel¬ 


dungen  senden.  Um  ein  Gerät 
zum  Empfangen  zu  veranlassen, 
verwenden  wir  die  Routine  LI¬ 
STEN.  Das  hat  nichts  mit  dem 
Basic-Befehl  LIST  zu  tun,  son¬ 
dern  kommt  vom  englischen 
Wort  für  »Hören«.  Beim  Aufruf 
vom  LISTEN  ist  das  angespro¬ 
chene  Gerät  auf  Empfang  und 
der  Computer  auf  Senden  ein¬ 
gestellt. 

Wichtig  ist,  daß  der  Akku 
beim  Aufruf  die  Geräteadresse 
enthält.  Dies  gilt  für  alle  vier  hier 
beschriebenen  Routinen.  Wenn 
Sie  mit  dem  Senden  der  Daten 
fertig  sind,  sollten  Sie  ein  UNLI¬ 
STEN  zum  entsprechenden  Ge¬ 
rät  schicken,  um  dieses  wieder 
freizugeben.  Dies  geschieht  mit 
Hilfe  der  UNLIST-Routine.  Ana¬ 
log  verhält  es  sich  mit  den  Routi¬ 
nen  TALK  und  UNTALK.  Sie  ver¬ 
anlassen  das  angesprochene 
Gerät,  Daten  zu  senden,  bezie¬ 
hungsweise  mit  dem  Senden 
aufzuhören  und  wieder  in  den 
Wartezustand  zurückzukehren. 

SECTLK  und  SECLST 

Die  beiden  Routinen  SECTLK 
und  SECLST  sind  ebenfalls  sehr 
wichtig  für  die  Datenübertra- 


LDA 

#$24 

;  Code  für  ’$’  in  Akku 

STA 

$FF 

;  und  abspeichem 

LDA 

#$01 

;  Länge  des  Filenamens 

LDX 

#FF 

;  Adresse  LO 

LDY 

#$00 

;  Adresse  HI 

JSR 

FILNAM 

;  übergeben 

s^eR 


LDA 

#$01 

;  Filenummer  1 

LDX 

#$08 

;  Geräteadresse  8 

LDY 

#$6F 

;  Sekundäradresse  +  $60 

JSR 

#  FILPAR 

;  Fileparameter  setzen 

Wie  Sie  sehen,  muß  zu  der  be¬ 
treffenden  Sekundäradresse 
ein  Wert  von  S60  addiert  wer¬ 
den. 

Aber  in  vielen  Fällen  müssen 
Sie  ja  auch  einen  Filenamen  an¬ 
geben.  Dazu  dient  die  FILNAM- 
Routine.  Hier  erfolgt  die  Para¬ 
meterübergabe: 

—  Länge  des  Filenamens  (Akku) 

—  Adresse  LO  des  Namens  (X- 
Register) 

—  Adresse  HI  des  Namens  (Y- 
Register) 


OPEN  und  CLOSE 

Nachdem  wir  alle  Filepara¬ 
meter  und  den  Filenamen  über¬ 
geben  haben,  können  wir  die 
OPEN-Routine  mit  JSR  OPEN 
aufrufen.  Schon  ist  das  entspre¬ 
chende  File  geöffnet.  Zu  beach¬ 
ten  wäre  folgendes:  Es  können 
im  Computer  niemals  mehr  als 
10  Files  gleichzeitig  geöffnet 
sein! 

Die  CLOSE-Routine  arbeitet 
analog  zu  OPEN,  mit  der  Aus¬ 
nahme,  daß  nur  die  Füenummer 


Auf  3.  i  stung  all  er  verwendeten  ROM- 
Rout i nen 


Kürz el 

Adresse 

F I LP AR 

f-FFBA 

F I LN AM 

TFFBD 

OPEN 

TFFCO 

CLOSE 

TFFC3 

LISTEN 

TFFB 1 

UNL I  ST 

TFFAE 

TALK 

TFFB  4 

IJNTALK 

TFFAB 

SECTLK 

TFF96 

SECLST 

TFF93 

I EC OUT 

TFFA8 

I  EC  I N 

TFFA5 

FI LT AB 

TF30F 

F I  L..SET 

TF31F 

LOAD 

TFFD5 

SAVE 

TFFD8 

BAS OUT 

TFFD2 

CLALL 

TFFE7 

Tabelle  1.  Die  im  Artikel  erwähnten  Betriebssystemroutinen 
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W  i  c  h  t.  i  g  e 

Z  e  r  o  p  a  g  e  a  d  r  e  s  s  e  n 

Adresse 

Bedeutung 

$90 

Status-Fl ag 

$93 

Flag  für  LOAD/VERIFY 

$9S 

Anzahl  der  offenen  Files 

$99 

Eingabegerät  für  BASIN 

$9A 

Ausgabegerät  für  BASOUT 

$B7 

L  ä  n  g  e  F  .i  1  en  a  m  e 

$B8 

a  k  t  i  v  e  F  i  i  e  n  u.  m  m  e  r 

$B9 

S e k  undäradresse 

$BA 

G  e  rä  teadress e 

$BE-:/BC 

Zeiger  auf  Filenamen 

Tabelle  2.  Dies  sind  die  Zeropageadressen  unter  denen  die  aktuellen  Fileparameter 
gespeichert  werden 

Byte  an  das  aktuelle  Gerät; 
IECIN  empfängt  eines  und  legt 
es  im  Akku  ab. 

Busfehlerbehandlung 

Bei  aller  Sorgfalt;  Fehler  kön¬ 
nen  immer  auftreten,  so  auch 
beim  Busbetrieb.  Um  einen  in  ei¬ 
ner  Busroutine  aufgetretenen 
Fehler  zu  signalisieren,  verwen¬ 
det  das  Betriebssystem  das 
Carry-Flag.  Generell  gilt:  Ist  das 
Carry-Flag  gesetzt,  so  ist  etwas 
nicht  in  Ordnung,  und  wir  sollten 
das  Statusbyte  überprüfen.  Die¬ 
ses  Statusbyte  steht  in  der  Spei¬ 
cherstelle  $90.  Immer  wenn  es 
ungleich  Null  ist,  liegt  irgendein 
Sonderfall  vor.  Jedes  Bit  des  Sta¬ 
tusbytes  hat  eine  andere  Funk¬ 
tion;  Tabelle  3  zeigt  diese  Bele¬ 
gung.  Ist  zum  Beispiel  das  Bit  7 


gesetzt,  so  ist  das  angesproche¬ 
ne  Gerät  entweder  nicht  vorhan¬ 
den  oder  abgeschaltet.  In  Basic 
bekämen  wir  in  einem  solchen 
Fall  die  Meldung  »DEVICE  NOT 
PRESENT  ERROR«.  Interessant 
ist  für  uns  noch  das  Bit  6.  Ist  es 
gesetzt,  so  bedeutet  das,  daß 
das  letzte  Byte  der  angeforder¬ 
ten  Informationen  übertragen 
wurde.  Dies  können  wir  uns 
auch  in  Basic  zunutze  machen, 
um  beispielsweise  die  Fehler¬ 
meldung  der  Floppy  auszule¬ 
sen: 

10  OPENl.8,15 

20  GET#1,  A$:  PRINTA$;:  IF 
ST  <>64  THEN  20 
30  CLOSEI 

Wie  Sie  an  diesem  Beispiel  se¬ 
hen,  ist  der  Inhalt  der  Speicher¬ 
stelle  $90  in  der  Variablen  ST  ► 


(  In  $ F A / $ F B  m u ß 

die  Adresse,  in  $FC 

Pr i n  zip  d es  Lesen  s  d es  F eh 1  er  kan  a 1 s 

die  L 

an  ge  des 

Befehlsstrings 

mit  Au 

sgabe  auf 

dem  Bildschirm. 

stehen. ) 

LDA 

#$00 

; 

Zur  üc  k setz  en  des 

LDA 

#$01 

5 

Fi  1  en  urnrner 

STA 

$90 

Status-Fl ans 

LDX 

#$03 

K 

Gera t  e  n  u m m e r 

LDA 

#$0 1 

•i 

F i 1 en ummer 

LDY 

#$6F 

.1 

S  e  k u n  d ä r  adre s  s e 

LDX 

#$08 

Ger  ä t  ead resse 

JSR 

FILPAR 

«• 

setzen . 

LDY 

#$6F 

S e k  u n d  äradresse 

LDA 

#$00 

n 

Länge  Filename  =0 

JSR 

F I LP AR 

.1 

setzen . 

JSR 

FILNAM 

• 

fl 

da  kein  Filename. 

LDA 

#$00 

fl 

Länqe  Filename  =0 

JSR 

OPEN 

M 

J 

File  öffnen 

JSR 

F I LN An 

H 

fl 

setzen . 

LDA 

#$08 

5 

Seräteadressa 

ulf 

-  -•  JSR 

OPEN 

1 

File  öffnen 

JSR 

LISTEN 

** 

a  u  f  E  m  p  f  a  n  g  e  n 

LDA 

#$08 

i 

Geräteadresse  auf 

LDA 

#$6F 

Sekundäradresse 

JSR 

TALK 

H 

Sen  den  sch a 1 1  en 

JSR 

SECLST 

senden . 

LDA 

#$6F 

.? 

S  e  k u n  d ä r adr e s s e 

LDY 

#$00 

.1 

Zähler  auf  Null 

JSR 

SECTLK 

1 

übertr agen 

1  LDA 

(FA) , Y 

H 

Bef  eh  1  sb y  t  e  1  ad  en 

1  JSR 

IECIN 

•! 

By t e  emp  f  an  gen 

JSR 

IECOUT 

f. 

und  übertragen 

JSR 

BASOUT 

5 

und  ausgeben 

I  NY 

n 

Z  ä h 1er  er  h ö  h e n 

BIT 

$90 

.1 

Bit  6  Status  =0? 

GNP 

$FC 

? 

Bef  eh  .1  s  .1  an  g  e 

BVC 

1 

H 

dann  noch  ein  Byte 

BNE 

1 

; 

noch  e i n  Byte  ? 

LDA 

#$08 

» 

G  e  r  ä  t  G?  a  d  r  e  s  s  e 

LDA 

#$08 

fl 

Ger  ät  ead  r  esse? 

JSR 

UNTALK 

'1 

Sendung  beenden 

JSR 

UNLIST 

Sendung  beenden 

LDA 

#$0 1 

•I 

Fi  1 en ummer 

LDA 

#$0 1 

ü 

Fi  1 en ummer 

JSR 

CLOSE 

M 

und  sc h .1  i  essen 

JSR 

CLOSE 

s 

Schl i essen 

RTS 

RTS 

Listing  1.  So  können  Befehlsstrings  an  die  Floppy  gesendet  werden 

Listing  2.  So  läßt  sich  der  Fehlerkanal  auslesen  und  anzeigen 

gung.  Denn  obwohl  wir  beim 
OPEN-Befehl  eine  Sekundär¬ 
adresse  angeben,  muß  diese 
bei  jeder  weiteren  Übertragung 
nochmals  an  das  aktuelle  Gerät 
gesendet  werden.  Dies  hat  zwei 
Gründe:  Einerseits  können  Sie  ja 
mehrere  Floppykanäle  gleich¬ 
zeitig  geöffnet  halten.  Damit  die 
Floppy  nun  weiß,  für  welchen 
Kanal  der  nächste  Schwung  von 
Daten  bestimmt  ist.  beziehungs¬ 
weise,  welcher  Kanal  senden 
soll,  muß  nach  dem  Aufruf  von 
TALK  SECTLK,  beziehungswei¬ 
se  nach  dem  Aufruf  von  LISTEN 
SECLST  durchgeführt  werden. 
Außerdem  merkt  sich  der  Com¬ 
puter  zwar  die  angegebene  Se¬ 
kundäradresse,  sendet  sie  aber 


nicht.  Dies  hat  praktische  Grün¬ 
de,  wie  wir  noch  bei  den  LOAD/ 
SÄVE-Routinen  sehen  werden. 
SECTLK  und  SECLST  benötigen 
die  jeweilige  Sekundäradresse 
+  $60  im  Akku.  Diese  kann,  wie 
in  unseren  Beispielen,  direkt  ge¬ 
laden  oder  aber  auch  der  ent¬ 
sprechenden  Zero-Page-Adres- 
se  entnommen  werden. 

IEC0UT  und  IECIN 

Nachdem  wir  nun  endlich  alle 
Vorbereitungen  getroffen  ha¬ 
ben,  können  wir  munter  Bytes 
von  der  Floppy  zum  Computer 
und  umgekehrt  übertragen. 
Dies  ist  mit  den  ROM-Routinen 
denkbar  einfach.  IECOUT  über¬ 
trägt  das  im  Akku  befindliche 


D  a  s  St  a  t  ü  s  -  F 1  a  g 

E-;  i  t  Be d  eu t  u n  q  w e n  n  g  e s e t  z  t 

1  Fehler  (Zei tüberschrei tung ) 
.  bei  I EC— Eingabe 

2  Feh 1  er  ( Zei t  über schrei tung ) 
h  e  i  I E  C  -  A  u  s  g  a  b  e 

3-5  nur  für  Kassetten bet r i eb 

6  Übertragung  ist  beendet 

7  Gerät  meldet  sich  nicht 

Tabelle  3.  Für  uns  wichtige  Bits  im  Statusflag 
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Listing 

3.  Das  Laden  von  Programmen  an  beliebige  Adressen 

enthalten.  Vor  jeder  neuen  Da¬ 
tenübertragung  sollten  Sie  dar¬ 
auf  achten,  daß  das  Statusbyte 
gelöscht  wird,  da  sonst  irrtüm¬ 
lich  Fehler  festgestellt  werden 
könnten.  Zur  Verdeutlichung 
des  bisher  Gesagten  dienen  die 
Listings  1  und  2,  die  jedoch  nur 
Anhaltspunkte  geben  sollen.  Sie 
sind  weder  perfekt  noch  ein¬ 
tippfertig  und  sollten  auf  den  je¬ 
weiligen  Bedarf  abgestimmt 
werden. 

Bearbeiten  mehrerer  Files 

Sie  werden  festgestellt  haben, 
daß  wir  bisher  immer  nur  mit  ei¬ 
nem  einzigen  File  gearbeitet  ha¬ 
ben.  Was  aber,  wenn  Sie  gleich¬ 
zeitig  zwei  Files  offen  halten 
müssen,  zum  Beispiel,  um  einen 
Block  von  Diskette  zu  lesen.  Sie 
erinnern  sich  ja,  daß  wir  dazu  so¬ 
wohl  den  Kgmmandokanal  als 
auch  einen  Übertragungskanal 
benötigen.  Wir  könnten  zwar  je¬ 
weils,  wenn  wir  den  Kanal  wech¬ 
seln  wollen,  mit  CLOSE  den  al¬ 
ten  schließen  und  mit  OPEN  den 
neuen  öffnen,  aber  es  geht  auch 
einfacher. 

Voraussetzung  ist,  daß  alle  be¬ 
nötigten  Files  schon  geöffnet 
sind.  Dann  kann  mit  Hilfe  einer, 
schon  erwähnten,  Filetabelle 
zwischen  —  bis  zu  10  —  Files  be¬ 
liebig  umgeschaltet  werden. 
Diesen  Zweck  erfüllen  die  Routi¬ 
nen  FILTAB  und  FILSET. 

FILTAB  benötigt  im  Akku  die 
Nummer  des  Fües,  auf  das  Sie 
umschalten  wollen.  Die  Routine 
sucht  dann  in  der  Filetabelle 
nach  den  entsprechenden  an¬ 
deren  Parametern.  Tritt  hier  ein 
Fehler  auf,  weil  das  File  noch 
gar  nicht  geöffnet  wurde,  so  wird 
das  Zero-Flag  gelöscht  und  es 
kann  mit  BNE  auf  einen  Fehler 
überprüft  werden. 

FILSET  schreibt  dann  die  ge¬ 
fundenen  Parameter  m  die  ent¬ 
sprechenden  Zero-Page- 

Adressen.  Die  komplette  Routi¬ 
ne  zum  Umschalten  auf  das  File 
x  lautet  also:  ► 


Die  ERROR-Routine  müssen 
Sie  natürlich  noch  selbst  schrei¬ 
ben.  Danach  ist  das  angewählte 
File  zum  aktuellen  File  gewor¬ 
den.  Alle  LISTEN,  TALK  und  so 
weiter,  beziehen  sich  jetzt  auf 
dieses  neue  File. 

In  den  Zero-Page-Adressen 
aus  Tabelle  2  stehen  nun  die  für 
dieses  File  aktuellen  Parameter, 
da  sie  aus  der  großen  Filetabel¬ 
le  automatisch  übertragen  wer¬ 
den.  Eine  Ausnahme  bildet  hier 
der  Filename,  da  er  nur  beim 
Öffnen  des  Fües  benötigt  wird. 

Diese  große  Füetabelle  befin¬ 
det  sich  übrigens  an  den  Spei¬ 
cherstellen  $0259  bis  $0276. 

Denken  Sie  immer  daran,  vor 
einem  erneuten  Umschalten 
UNLIST  oder  UNTALK  aufzuru¬ 
fen,  CLOSE  braucht  dagegen 
erst  aufgerufen  zu  werden, 
wenn  die  Bearbeitung  eines  Fi¬ 
les  völlig  abgeschlossen  ist. 

LOAD  und  SAVE 

Prinzipiell  könnten  Sie  mit  dem 
bisher  Erwähnten  auch  schon 
Programme  laden  und  spei¬ 
chern,  allerdings  nur  sehr  müh¬ 
selig.  Da  unser  Computer  das 
aber  schon  von  selbst  be¬ 
herrscht,  geben  wir  ihm  gern 
diese  Arbeit  ab. 

Betrachten  wir  zunächst  die 
LOAD-Routine.  Auch  hier  muß 
wieder  eine  Vielzahl  an  Parame¬ 
tern  übergeben  werden.  Mit 
FILPAR  werden  Gerätenummer 
und  Sekundäradresse  gesetzt. 
Eine  Filenummer  braucht  nicht 
gesetzt  zu  werden.  Für  die  Se¬ 
kundäradresse  gilt  folgendes: 

Ist  sie  gleich  Null,  so  wird  das 
Programm  an  eine,  von  Ihnen 
festgelegte,  Speicherstelle  gela¬ 
den.  Ist  sie  gleich  Eins,  so  wird 
das  Programm  an  die  Speicher¬ 


stelle  geladen,  an  der  es  bei  SA¬ 
VE  stand.  Der  erste  Modus  wird 
vom  Betriebssystem  ausgenutzt, 
um  Programme  ab  $0800  zu  la¬ 
den,  wenn  beim  LOAD-Befehl 
keine  Sekundäradresse  ange¬ 
geben  wird.  Prinzipiell  kann 
aber  an  jede  beliebige  Adresse 
geladen  werden!  Der  Filename 
wird,  wie  gewohnt,  mit  FILNAM 
gesetzt.  Vor  dem  Aufruf  der 
LOAD-Routine  treten  zwei,  uns 
neue,  Parameter  hinzu,  die  wie 
folgt  übergeben  werden: 
LOAD/VERIFY  Flag  (Akku) 
Ladeadresse  LO  (X-Register) 
Ladeadresse  HI  (Y-Register) 

Steht  beim  Aufruf  der  Routine 
im  Akku  0,  so  wird  geladen. 
Steht  dort  hingegen  eine  1,  so 
wird  ein  VERIFY  durchgeführt. 

Die  Startadresse  in  den  X/Y- 
Registern  wird  nur  beachtet, 
wenn  die  Sekundäradresse 
gleich  Null  ist.  Alles  übrige  erle¬ 
digt  die  LOAD-Routine,  und  Sie 
brauchen  nur  noch  deren  Ende 
abzuwarten.  Zur  Sekundär¬ 
adresse  wäre  noch  folgendes  zu 
bemerken: 


angeben,  zur  Floppy  wird  im¬ 
mer  nur  0  gesendet.  Wie  Sie 
schon  wissen,  ist  diese  Sekundä¬ 
radresse  üoppyintern  für  den 
LOAD-Befehl  reserviert  und 
darf  nicht  ohne  weiteres  bei 
OPEN-Befehlen  verwendet  wer¬ 
den.  Nach  Beendigung  der 
LOAD-Routine  wird  im  X  und 
Y-Register  die  Endadresse  des 
Programms  übergeben. 

Die  SÄVE-Routine  hat  eine  et¬ 
was  kompliziertere  Parameter¬ 


übergabe.  FILPAR  braucht  nur 
mit  der  Gerätenummer  im  X- 
Register  aufgerufen  zu  werden, 
da  weder  Sekundäradresse 
noch  Filenummer  benötigt  wer¬ 
den.  Das  Setzen  des  Filnamens 
erfolgt  normal  über  FILNAM. 

Übergeben  werden  müssen 
nun  noch  Anfangsadresse  und 
Endadresse +  1  des  zu  spei¬ 
chernden  Bereichs.  Die  Anfangs¬ 
adressen  müssen  Sie  irgendwo 
in  der  Zero-Page  in  der  Reihen¬ 
folge  LO/HI  ablegen.  Empfeh¬ 
lenswert  wären  die  Adressen 
SFB/FC,  da  diese  nicht  vom  Be¬ 
triebssystem  oder  Basic  benutzt 
werden.  Im  Akku  muß  dann  die 
Adresse  des  LO-Byte  überge¬ 
ben  werden;  wenn  Sie  die 
Adresse  also  unter  $FB/FC 
spreichern,  muß  im  Akku  $FB 
stehen. 

Die  Endadresse  übergeben 
Sie  wie  folgt: 

LO-3yte  im  X-  und  HI-Byte  im  Y- 
Register.  Es  muß  immer  1  zur 
Engadresse  addiert  werden,  da 
sonst  das  letzte  Byte  des  Pro¬ 
gramms  nicht  abgespeichert 


wird.  Danach  kann  die  Routine 
SAVE  aufgerufen  werden.  Wie¬ 
der  haben  wir  für  Sie  zur  Ver¬ 
deutlichung  zwei  Listings:  Li- 
sting  3  zeigt,  wie  man  ein  Pro¬ 
gramm  an  eine  beliebige  Adres¬ 
se  lädt;  Listing  4  wie  man  einen 
beliebigen  Bereich  auf  Diskette 
speichert.  Erwähnenswert  ist 
noch  die  Routine  CLALL,  die  alle 
Files  im  Computer  schließt;  die 
Kanäle  in  der  Floppy  bleiben 
davon  jedoch  unberührt.  Hier 
müssen  Sie  also  sorgfältig  mit 
CLOSE  arbeiten,  da  Sie  -sonst 
Daten  verlieren  können. 

Nachdem  wie  Sie  nun  mit  Theo¬ 
rie  überschwemmt  haben,  sol¬ 
len  Sie  sogleich  in  den  Genuß  Ih¬ 
rer  neuen  Kenntnisse  kommen. 
Haben  Sie  schon  einmal  etwas 


LDA 

#$xx 

;  Nummer  des  Files 

JSR 

FILTAB 

;  Durchsuchen  der  Tabelle 

BNE 

ERROR 

;  Fehler  ? 

JSR 

FILSET 

;  Parameter  setzen 

P  r  i  n  2  1  p  d  e  s  S  p  e  1  c  h  e  r  n  s  v  o  n 
Berel chsn - 


LDX 

#-t 

O  8  ^  G  e  r  ä  t  e  a  d  r  e  s  s  e 

JSR 

FILPAR  :  setzen 

LDXr 

( F 1 1  e  n  a  m  e  L  O — B  y-t  e  > 

LDY 

# 

( F 1  I  e  n  a  m  e  H I  —  B  y  t  e ) 

LDA 

# 

( F  i  1  e  n  a  m  e  L  ä  n  q  e ) 

JSR 

FI 

L  N  A  M  5  s  e  t  z  e  n 

LDX 

# 

C  S  t  a  r  t  a  □  r  e  s  s  e  L  O  -  B  y  t  e ) 

LDY 

# 

( S  t  a  r  t  a  d  r  e  s  s  e  H I  B  y  t  e ) 

T*  y 

$ 

FB  ^  s  im  1  s  c:  h  e  n  s-  p  e  1  c  h  e  r  n 

LDA 

#$ 

FB  ,i  Pointer  auf  Start  ad  r 

LDX 

# 

( E  n  d  a  d  r  e  s  s  h  t  1  L  O  -  B  y  t  e ) 

L_D  Y 

# 

i.  L  n  d  a  d  r  e  s  s-  e  -*■  j.  H I  -  h  y  t  e .<• 

J SR  SAVE 
RTS 

Listing  4.  Und  so  funktioniert  das  Abspeichern 


Egal,  was  Sie  für  eine  Adresse 
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Listing  5.  Mit  diesem  Programm  können  Sie  ein  Floppy-Drucker-Spooling  durchfuh- 

ren.  Näheres  im  Text. 

von  Spooling  gehört?  Nein? 
Macht  nichts,  wir  werden  uns  mit 
dieser  Technik  nämlich  jetzt  aus¬ 
einandersetzen,  und  Sie  werden 
dabei  die  Vorzüge  dieser  Mög¬ 
lichkeit  genießen  lernen. 

Spooling? 

Was  ist  das? 


Unter  dem  Begriff  Spooling 
verbirgt  sich  eigentlich  eine 
ganz  einfache  Technik,  die  je¬ 
doch  enorme  Vorteile  besitzt:  Es 
handelt  sich  um  das  Drucken  di¬ 
rekt  von  Diskette.  Haben  Sie 
nicht  auch  schon  öfters  versucht, 
ein  meterlanges  Listing  auf  Pa¬ 
pier  zu  bringen  und  den 
Drucker  dabei  mit  wütenden 
Blicken  zu  größerer  Eile  aufge¬ 
fordert,  weil  Sie  nämlich  unter 
Zeitdruck  standen  und  sich  bei 
der  Arbeit  keine  Verzögerung 
erlauben  konnten?  Dann  ist 
Spooling  genau  das  Richtige  für 
Sie.  Bei  dieser  Methode  wird  ein 
Listing,  das  ausgedruckt  wer¬ 
den  soll,  auf  Diskette  gebracht. 
Danach  starten  Sie  ein  Spooling- 
Programm  und  siehe  da;  der 
Drucker  beginnt  Ihr  Listing  auf 
Papier  zu  bringen,  und  der  Com¬ 
puter  meldet  sich  betriebsbe¬ 
reit  mit  READY. 

Dies  ist  kein  Wunder,  sondern 
die  Eigenschaft  des  seriellen 
Bus  Ihres  Computers.  Sie  haben 
vorhin  gelernt,  wie  man  den  Bus 
des  Computers  in  Maschinen¬ 
sprache  bedient.  Dabei  fielen 


auch  Worte  wie  TALK,  LISTEN, 
SENDEN  und  EMPFANGEN. 
Der  Trick  des  Spooling  ist  nun 
der  Mit  Hilfe  des  CMD-Befehls 
in  Basic  können  Sie  ein  Listing 
auf  Diskette  »umleiten«,  und 
zwar  geschieht  dies  ähnlich  wie 
beim  Drucker:  Sie  eröffnen  ein 
File  und  schicken  mit  dem  CMD- 
Kommando  alle  weiteren  Bild¬ 
schirmausgaben  auf  den  Bus. 
Nur  ist  jetzt  nicht  der  Drucker 
der  Adressat  sondern  die  Flop¬ 
py.  Hier  ein  Beispiel: 

Sie  haben  ein  Listing  im  Spei¬ 
cher  und  wollen  dieses  auf  Dis¬ 
kette  ablegen,  sein  Name  soll 
»TEST«  sein: 

OPEN  1, 8, 2, "TEST, UW 

CMD1 

LIST 


Drucken  ohne 
Umwege 


Nach  dieser  Befehlsfolge  wird 
Ihr  Listing  als  USR-File  auf  Dis¬ 
kette  geschrieben.  Wie  wäre  es 
nun,  wenn  die  Floppy  ein  TALK- 
Kommando  erhalten  würde,  das 
sie  veranlaßt,  das  eben  ge¬ 
schriebene  File  auf  den  Bus  zu 
bringen?  Der  »Hörer«  ist  aber 
jetzt  nicht,  wie  üblich,  der  Com¬ 
puter  sondern  der  Drucker,  den 
wir  zuvor  mit  einem  LISTEN  da¬ 
zu  aufgefordert  haben.  Die  Fol¬ 
ge  wäre  das,  was  Sie  sich  jetzt 
schon  denken  können: 


Die  Floppy  schickt  das  gesam¬ 
te'  Lr"  mg  über  den  Bus,  und  der 
Drucker,  der  ja  auf  Empfang 
programmiert  ist,  bekommt  die¬ 
ses  Listing  und  druckt  es  aus. 
Der  Computer  hat  mit  der  gan¬ 
zen  Sache  nichts  zu  tun,  da  er 
sich  nach  Senden  der  Komman¬ 
dos  »zurückgezogen«  hat  und 
bleibt  demzufolge  frei  für  weite¬ 
re  Arbeit. 

Der  Zugriff  auf  den  Bus  ist  dem 
Computer  natürlich  für  die  Zeit 
der  Übertragung  verwehrt, 
aber  Sie  können  währenddes¬ 
sen  intern  Weiterarbeiten.  Ist  die 
Übertragung  beendet,  so  sind 
beide  Peripheriegeräte  noch 
auf  Sendung  und  müssen  erst 
»zur  Ruhe  gebracht«  werden,  be¬ 
vor  sie  wieder  ansprechbar 
sind.  Aber  auch  das  erledigt  ein 
kleines  Programm  für  uns.  Se¬ 
hen  Sie  sich  jetzt  einmal  Listing  5 
an.  Es  enthält  ein  Spooling- 
Programm,  das  mit 
S  YS828,"füename'  ’ 
aufgerufen  wird.  Danach  mel¬ 
det  sich  der  Computer  mit 
SPOOLING  filename 
READY 

und  der  Drucker  beginnt  zu  ar¬ 
beiten.  Ist  der  Druckvorgang 
beendet,  so  tippen  Sie  noch  ein¬ 
mal 
SYS828 

ohne  Filenamen,  und  die 
Leuchtdiode  an  der  Floppy  er¬ 
lischt.  Es  erscheint  die  Meldung 
END  OF  SPOOLING 
READY 

Dieses  Programm  ist,  im  Gegen¬ 
satz  zu  unseren  anderen  Li- 


stings,  zum  sofortigen  Eintippen 
gedacht. 

Wie  Sie  aus  diesem  Beispiel 
sehen,  kann  es  von  großem  Nut¬ 
zen  sein,  wenn  Sie  das  Prinzip 
des  seriellen  Bus  verstehen  und 
dessen  »Verkehrsregeln«  ken¬ 
nen,  da  viele  Programme  nur 
deshalb  mit  geringem  Aufwand 
große  Effekte  und  Nutzen  erzie¬ 
len.  Ein  weiteres  Beispiel  in  die¬ 
ser  Reihe  dürfte  wohl  HYPRA- 
LOAD  sein,  das  Sie  in  Ausgabe 
10  des  64'er-Magazms  fanden. 
Dieses  Programm  nutzt  aber 
noch  einige  weitere  Tricks  der 

Maschinenspracheprogram¬ 
mierung,  die  wir  in  den  nächsten 
Ausgaben  besprechen  wollen. 


Was  kommt 
demnächst 


In  Teil  4  unseres  Kurses  wollen 
wir  nämlich  in  die  direkte  Pro¬ 
grammierung  der  Floppy  ein¬ 
steigen,  das  heißt,  das  Abspei¬ 
chern  von  Maschinenprogram¬ 
men  in  ihren  Pufferspeicher  und 
das  Ausführen  derselben.  Als 
Beispiel  werden  wir  unser 
HYPRA-LOAD  ein  wenig  »zerle¬ 
gen«,  um  Ihnen  die  Möglichkei¬ 
ten  dieser  Programmiertechnik 
nahezubringen. 

Bis  zum  nächsten  Mal  also 
noch  viel  Spaß  in  der  Buspro¬ 
grammierung  und  in  der  Anwen¬ 
dung  des  Druckerspooling. 

(B.  Schneider/K.  Schramm/gk) 
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Comal  -  eine  Einführung 


(Teil  2) 


1 

— 

Nachdem  wir  in  der  ersten  Folge  die  Grundkenntnisse 
erworben  haben,  um  mit  Comal  umgehen  zu  können,  wollen 
wir  jetzt  die  ersten  kleinen  Programme  erstellen. 

Die  Verwandtschaft  zwischen 
Basic  und  Comal  wird  uns  da¬ 
bei  den  Einstieg  in  die  einfache 
Programmierung  sehr  erleich¬ 
tern.  Wir  brauchen  uns  also  nicht 
wie  beim  Erlernen  anderer  Pro¬ 
grammiersprachen  mit  völlig 
neuen  Befehlsstrukturen  herum¬ 
zuschlagen,  sondern  kommen 
weitgehend  mit  unserem  Basic- 
Wissen  aus.  Man  kann  sagen, 
daß  zwischen  Basic  und  Comal 
eine  Art  Aufwärtskompatibilität 
besteht.  Basic-Programme  las¬ 
sen  sich  mit  minimalen  Änderun¬ 
gen  in  Comal  übersetzen;  in  der 
anderen  Richtung  können  aller¬ 
dings  größere  Schwierigkeiten 
auftreten.  So  sind  zwar  alle  nu¬ 
merischen  Funktionen  und  Ope¬ 
ratoren  von  Basic  auch  in  Comal 
vorhanden,  es  gibt  jedoch  zu¬ 
sätzlich  einige  Comal-Funktio- 
nen,  die  in  Basic  nicht  Vorkom¬ 
men  (Tabelle  1),  beispielsweise 
MOD  (Restbildung  bei  Division). 
Auch  die  Datenein-  und  Ausga¬ 
be  ist  in  Comal  um  einiges  kom¬ 
fortabler. 

Betrachten  wir  einmal  das  fol¬ 
gende  kleine  Beispiel  einer 
Mehrwertsteuer-Berechnung, 
zunächst  in  Basic: 

10  rem  Mehrwertsteuer 
20  input  "Betrag";b 
30s  =  b  *0.14 
40  b  =  b  +  s 

50  print  "Mehrwertsteuer:"^ 

60  print  "Gesamtbetrag:";b 
Dies  ist  zugegebenermaßen 
ein  sehr  einfaches  Beispiel,  und 
man  hätte  es  auch  gut  in  einer 
Zeile  unterbringen  können. 
Aber  sehen  wir  uns  dieses  Pro¬ 
gramm  doch  einmal  in  Comal  an: 
10  //  Mehrwertsteuer 
20  input  "Betrag  ?" ;  betrag 
30  mwert :  =  betrag  *  0.14 
40  betrag  :  =  betrag  +  mwert 
50  print  "Mehrwertsteuer:" 
mwert 

60  print  "Gesamtbetrag:"  ,  be¬ 
trag 

Man  erkennt  sofort  die  sehr 
große  Ähnlichkeit  beider  Pro¬ 
gramme.  Allerdings  gibt  es  auch 


einige  mehr  oder  weniger  auf¬ 
fällige  Unterschiede.  Zunächst 
versteht  Comal  auch  lange  Va¬ 
riablennamen,  wodurch  die  Pro¬ 
gramme  generell  übersichtli¬ 
cher  werden.  Als  nächstes  fällt 
die  Verwendung  von »:  = « für  die 
Wertzuweisungen  auf.  Bei  der 
Eingabe  braucht  man  allerdings 
nur  ein  Gleichheitszeichen  zu 
schreiben.  Comal  merkt  dann, 
was  gemeint  ist  und  wandelt  das 
Gleichheitszeichen  in  »:  =  «  um. 

Bei  genauerem  Hinsehen  ent¬ 
deckt  man  schließlich  noch  die 
Verwendung  des  Doppelpunk¬ 
tes  statt  eines  Semikolons  bei 
der  INPUT-Anweisung  und  die 
Verwendung  des  Kommas  statt 
eines  Semikolons  bei  den 
PRINT-Befehlen. 


Befassen  wir  uns  zunächst  mit 
dem  INPUT-Befehl.  Genau  wie 
in  Basic  werden  damit  Daten 
vom  Benutzer  erfragt  und  an  die 
im  Befehl  angegebenen  Varia¬ 
blen  zugewiesen.  Mehrere  Va¬ 
riablen  können  dabei  durch 
Komma  getrennt  eingegeben 
werden. 

Enthält  die  INPUT-Anweisung 
nur  eine  Variablenliste  und  kei¬ 
nen  Text,  dann  erscheint  beim 
Programmlauf  ein  Fragezei¬ 
chen,  um  dem  Benutzer  mitzutei¬ 
len,  daß  jetzt  eine  Eingabe  er- 
:  wartetfviu  1. 

Im  Unterschied  zu  Basic  kann 
hinter  INPUT  nicht  nur  ein  Text  in 
Anführungszeichen  stehen,  son¬ 
dern  auch  ein  beliebiger  String¬ 
ausdruck.  Hinter  diesem  String- 


ausdruck  muß  ein  Doppelpunkt 
folgen,  und  dahinter  wiederum 
die  Liste  der  einzulesenden  Va¬ 
riablen.  In  unserem  kleinen  Bei¬ 
spiel  könnten  wir  also  die  Zeile 
20  ersetzen  durch: 

20  frage$  :=  "Betrag" 

25  input  frageS  :  betrag 
Wir  müssen  allerdings  beach¬ 
ten,  daß  Strings  in  Comal  dimen¬ 
sioniert  werden  müssen,  da  vor 
dem  eigentlichen  Programm¬ 
lauf  die  Adressen  aller  Varia¬ 
blen  festgelegt  werden  (siehe 
Teil  1).  Um  die  Adressen  von 
Stringvariablen  aber  festlegen 
zu  können,  muß  Comal  deren 
maximale  Länge  kennen.  Bevor 
wir  also  die  Stringvariable 
»frageS«  das  erste  Mal  benutzen 
können,  muß  eine  Dimensionie- 


Funk¬ 

tion 

Bedeutung 

Beispiel 

Basic- 

Äquivalent 

ABS 

Absolutwert 

A  :=  ABS(-8) 

ABS 

AND 

Logisches  UND 

IF  A  =  3  AND  B  =  4 
THEN... 

AND 

ATN 

Arcustangens 

X  :  =  ATGCPHI) 

ATN 

C-HR$ 

Zeichen 

PRINT  CHR$(13) 

CHRS 

COS 

Cosinus 

X  :=  COS(ÄL- 
PHA) 

COS 

DIV 

Integerdivision 

X  :=  ADIVB 

INTCA/B) 

EXP 

Exponentialfunktion 

E  :  =  EXP(l) 

EXP 

IN 

Teilstringsuche 

IF  A$  IN  BS 

THEN... 

(nicht  vorhanden) 

INT 

Ganzzahliger  Anteil 

N  :=  INTQ.5) 

INT 

LEN 

Stringlänge 

L  :=  LEN(X$) 

LEN 

LOG 

Logarithmus 

X  :  =  LOG(A) 

LOG 

MOD 

Restfunktion 

X  :=  A  MOD  B 

A-INT(A/B)*B 

NOT 

Logisch  NICHT 

IF  NOT  FLAG 
THEN... 

NOT 

OR 

Logisch  ODER 

IF  FL  AGORA  >3 
THEN... 

OR 

ORD 

ASCII-Wert 

PRINT  ORD('Ä”) 

ASC 

PEEK 

Speicher  lesen 

PRINT  PEEK(828) 

PEEK 

RND 

Zufallszahl 

N  :=  RND(l) 

RND 

SGN 

Vorzeichen- 

Funktion 

S  :=  SGN(X) 

SGN 

SIN 

Sinus 

X  :  =  SIN(ALPHA) 

SIN 

SQR 

Quadratwurzel 

PRINT  SQR(2) 

SQR 

TAN 

Tangens 

T  :=  TAN(ALPHA) 

TAN 

Tabelle  1. 
Comal- 
Funktionen  und 
Operatoren 
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Anweisung 

Bedeutung 

CASE  <  Variable  >  OF 

Beginn  einer  CASE-Anwei- 
sung 

WHEN  <  Wert> 

Vergleicht  <  Variable  >  mit 
<Wert>;  bei  Übereinstim¬ 
mung  wird  der  darauffolgen¬ 
de  Programmabschnitt  aus¬ 
geführt 

OTHERWISE 

Der  folgende  Abschnitt  wird 
ausgeführt,  wenn  keine 
WHEN-Anweisung  zutraf  (op¬ 
tional) 

ENDCASE 

Abschluß  einer  CASE- 
Anweisung 

IF  <Bedingung>  THEN 


ELIF  <  Bedingung  >  THEN 


ELSE 


ENDIF 


Beginn  einer  IF-Änweisung. 
Bei  wahrer  <  Bedingung  > 
wird  der  Teil  nach  THEN  aus¬ 
geführt 

Falls  die  vorhergehende 

<  Bedingung  >  nicht  zutraf, 
wird  die  angegebene  neue 

<  Bedingung  >  getestet  (op¬ 
tional) 

Falls  keine  vorhergehende 

<  Bedingung  >  zutraf,  wird 
der  Programmteil  nach  ELSE 
ausgeführt  (optional) 

;rv’r,et  das  Ende  eines 
entfällt  beim  einzei¬ 
ligen  IF) 


Tabelle  2. 
Kontrollstrukturen 
in  Comal. 

LOOP.. .ENDLOOP  ist  in 
der  Version  0.14  noch 
nicht  implementiert. 


FOR  <  Laufvariable  >  :  = 

<  Anfang  >  TO  <Ende>  DO 


STEP  <  Schrittweite  > 


ENDFOR 


Beginn  einer  Zählschleife,  bei 
der  die  <Laufvariable>  von 

<  Anfang  >  bis  <Ende> 
hochgezählt  v/ird. 

Angabe  einer  Schrittweite 
zum  Hochzählen  der 

<  Laufvariable  >  (optional) 
Ende  einer  FOR-Schleife. 

Statt  ENDFOR  kann  auch 
NEXT  eingegeben  werden. 


REPEAT 

UNTIL  <  Bedingung  > 


Beginn  einer  REPEAT... UNTIL- 
Schleife 

Bei  erfüllter  Bedingung  wird 
die  Schleife  beendet,  sonst 
nochmals  durchlaufen, 


WHILE  <  Bedingung  > 


ENDWHILE 


Der  nachfolgende  Programm¬ 
teil  wird  nur  durchlaufen, 
wenn  die  <  Bedingung  >  er¬ 
füllt  ist,  sonst  wird  das  Pro¬ 
gramm  hinter  END  WHILE 
fortgesetzt. 

Ende  einer  WHILE... END 
WHILE-Schleife,  springt  stets 
zurück  nach  WHILE 


LOOP 

Beginn  einer  Endlosschleife. 
Der  Programmteil  zwischen 
LOOP  und  ENDLOOP  wird 
ständig  wiederholt. 

EXIT 

Ermöglicht  das  Verlassen  ei¬ 
ner  LOOP...ENDLOOP- 
Schleife. 

ENDLOOP 

Erzeugt  stets  einen  Rück¬ 
sprung  nach  LOOP. 

C  64 


rung  erfolgen.  Dies  geschieht, 
indem  wir  noch  eine  weitere  Zei¬ 
le  einfügen: 

15  dim  frage$  of  20 

Durch  diese  Anweisung  wird 
Speicherplatz  für  eine  Stringva- 
riable  »frage  $«  mit  einer  maxi¬ 
malen  Länge  von  20  Zeichen  re¬ 
serviert.  Die  Stringlänge  ist  in 
Comal  übrigens  grundsätzlich 
nur  durch  den  Speicherplatz  be¬ 
grenzt.  Nach  »dim  text$  of  3000« 
beispielsweise  kann  text$  bis  zu 
3000  Zeichen  enthalten. 

Doch  kommen  wir  nun  zur 
Print-Anweisung,  die  im  wesent¬ 
lichen  analog  zu  Basic  ist,  dar¬ 
über  hinaus  aber  einige  zusätzli¬ 
che  Feinheiten  kennt. 


Formatierte  Ausga¬ 
be  ohne  Probleme 


Die  einzelnen  zu  druckenden 
Argumente  (numerische  oder 
Stringausdrücke)  werden 
grundsätzlich  durch  Komma  ge¬ 
trennt.  Wünscht  man  die  Ausga¬ 
be  an  einer  bestimmten  Tabula¬ 
torstelle,  kann  man  wie  in  Basic 
die  TAB(n>Funktion  verwenden. 
Die  durch  Komma  getrennten 
Ausdrücke  werden  normaler¬ 
weise  unmittelbar  nebeneinan¬ 
der  gedruckt  —  so,  als  hätte  man 
in  Basic  ein  Semikolon  verwen¬ 
det.  Zum  Drucken  von  Tabellen 
ist  das  natürlich  nicht  besonders 
sinnvoll.  Es  ist  jedoch  mit  dem 
Comal-Befehl  »ZONE«  möglich, 
die  Spaltenbreite  für  die  Print- 
Anweisung  festzulegen.  Mit  ZO¬ 
NE  10  erhält  man  eine  Spalten¬ 
breite  wie  bei  Basic. 

Zur  weiteren  Formatierung 
von  Zahlenausgaben  kann  man 
»PRINT  USING«  verwenden. 
Hinter  »USING«  muß  dabei  ein 
String  stehen,  der  das  Ausgabe¬ 
format  bestimmt.  Für  jede  Zif¬ 
fernstelle  der  auszudruckenden 
Zahl  steht  in  diesem  String  em 
Nummernzeichen  »#«.  Außer¬ 
dem  kann  die  Position  des  Dezi¬ 
malpunktes  angegeben  wer¬ 
den.  In  unserem  kleinen 
Mehrwertsteuer-Programm  wä¬ 
re  es  zum  Beispiel  sinnvoll,  die 
Geldbeträge  mit  zwei  Nachkom¬ 
mastellen  auszugeben.  Dazu  er¬ 
setzen  wir  die  Zeilen  50  und  60 
durch  die  folgenden  vier 
Comal-Zeilen: 

50  print  »Mehrwertsteuer:«, 

55  print  using  "#####.#  #": 
mwert 

60  print  "Gesamtbetrag:”, 

65  print  using  "#####.# 
betrag 

Jetzt  werden  die  Beträge 
rechtsbündig  mit  fünf  Stellen  vor 
und  zwei  Stellen  nach  dem  Kom¬ 
ma  (oder  besser  Dezimalpunkt) 
ausgegeben.  Die  beiden  zusätz¬ 
lichen  PRINT-Befehle  waren  nö¬ 
tig,  da  hinter  dem  Doppelpunkt 
im  Anschluß  an  das  »USING«- 


146 


Ausgabe  1 2  /Dezember .  1 984 
o4er-omine.de 
64er-onIine.net 


Kurs:  Programmiersprachen 


Q  64 


Statement  nur  noch  numerische 
Parameter  folgen  dürfen.  Die 
Konstruktion  »PRINT  USING"# 
##”:  "Hallo”, 5«  führt  zu  einer 
Fehlermeldung,  weil  »USING« 
sich  an  dem  String  "Hallo"  —  et¬ 
was  salopp  gesagt  —  die  Zähne 
ausbeißt. 

Der  zur  »USING «-Anweisung 
gehörende  Formatierungsstring 
darf  übrigens  auch  andere  Zei¬ 
chen  enthalten.  Probieren  Sie 
doch  einmal  folgende  Zeile  (im 
Direktmodus)  aus: 

PRINT  USING  "DM  #  #  #.  # 

12.6 

Experimentieren  Sie  ruhig 
einmal  mit  diesen  Formatie¬ 
rungsmöglichkeiten,  auch  unter 
Verwendung  des  ZONE-Be- 
fehls. 

Strukturiert 

programmieren 

Jede  höhere  Programmier¬ 
sprache  kennt  sogenannte  »Kon¬ 
trollstrukturen«,  um  den  Pro¬ 
grammablauf  in  Abhängigkeit 
von  bestimmten  Bedingungen 
beeinflussen  zu  können.  In  Basic 
gibt  es  zwei  derartige  Struktu¬ 
ren,  nämlich  die  Wiederholung 
mit  FOR...NEXT  und  die  Bedin¬ 
gungsabfrage  mit  IF...THEN.  Die 
Realisierung  der  IF-Abfrage  in 
Basic  hat  dabei  zwei  entschei¬ 
dende  Nachteile.  Zum  einen 
fehlt,  zumindest  im  Commodo- 
re-Basic,  die  Angabe  einer  Al¬ 
ternative  (ELSE-Teil  einer  IF- 
Anweisung),  zum  anderen  ist  die 
Beschränkung  auf  eine  Zeile  in 
vielen  Fällen  sehr  störend.  Man 
behilft  sich  in  Basic  dann  mehr 
schlecht  als  recht  mit  GOTO- 
Sprüngen  vor,  nach  und  inner¬ 
halb  von  IF-Anweisungen,  was 
die  Übersichtlichkeit  eines  Pro¬ 
gramms  nicht  gerade  fördert. 

Comal  unterstützt  nun  struktu¬ 
riertes  Programmieren  durch  ei¬ 
ne  Vielzahl  von  Strukturbefeh¬ 
len  (Tabelle  2).  Zur  Bildung  von 
Programmschleifen  stehen  ne¬ 
ben  der  von  Basic  bekannten 
FOR. .  .NEXT-Struktur  noch  WHI- 
LE...ENDWHILE  und  REPE- 
AT...UNTIL  zur  Verfügung.  Am 
einfachsten  davon  ist  die  Schlei¬ 
fe  mit  REPEAT...UNTIL  (»Wieder¬ 
hole  ...  bis«).  Hinter  UNTIL  muß 
eine  Bedingung  stehen.  Ist  die 
Bedingung  nicht  erfüllt,  wird  die 
Schleife  ab  REPEAT  wiederholt, 
und  zwar  so  oft,  bis  entweder  die 
Bedingung  wahr  wird,  oder  bis 
der  entnervte  Programmierer 
die  STOP-Taste  drückt.  Der  fol¬ 
gende  Vierzeiler  wartet  zum 
Beispiel,  bis  die  Taste  »X«  ge¬ 
drückt  wird. 

10  DIM  EINGABE$  OF  1 
20  REPEAT 

30  EINGABE!  :=  KEY$ 

40  UNTIL  EINGABE!  =  "X" 

Die  Systemvariable  »KEY!« 
enthält  stets  die  gerade  ge¬ 


drückte  Taste.  Ist  keine  Taste  ge¬ 
drückt,  ist  KEY!=CHR$(0). 

WHILE . .  .ENDWHILE  funktio¬ 
niert  ähnlich  wie  REPEAT.. .UN¬ 
TIL,  nur  steht  hier  die  Bedin¬ 
gung  direkt  hinter  WHILE,  wird 
also  überprüft,  bevor  die  Schlei¬ 
fe  zum  ersten  Mal  durchlaufen 
wird.  Dadurch  wird  eine 
WHILE-Schleife  möglicherwei¬ 
se  nie  durchlaufen,  nämlich 
dann,  wenn  die  Bedingung  von 
Anfang  an  schon  nicht  erfüllt 
war.  In  diesem  Fall  werden  alle 
Befehle  zwischen  WHILE  und 
ENDWHILE  übersprungen  und 
das  Programm  nach  ENDWHI¬ 
LE  normal  fortgesetzt. 

Das  genaue  Format  der 
WHILE-Schleife  ist  »WHILE  (Be¬ 
dingung)  DO  (Anweisungen) 
ENDWHILE«. 

Mit  dem  »DO«  hat  es  dabei  ei¬ 
ne  besondere  Bewandtnis.  Steht 
hinter  dem  »DO«  in  der  gleichen 
Zeile  eine  Anweisung,  dann  faßt 
Comal  dies  als  eine  einzeilige 
WHILE-Schleife  auf.  In  diesem 
Fall  darf  kein  ENDWHILE  mehr 
folgen,  sonst  gibt  es  einen  »Feh¬ 
ler  in  der  Programmstruktur«. 
Mit  dieser  Kurzform  einer 
WHILE-Schleife  und  dem 
Comal-Befehl  »NULL«  läßt  sich 
sehr  elegant  eine  Warteschleife 
auf  einen  Tastendruck  auf¬ 
bauen: 

10  WHILE  KEY!  =  CHR$(0)  DO 
NULL 

Die  Anweisung  NULL  ist  eine 
»Dummy«-Anweisung  mit  der 
speziellen  Eigenschaft,  nichts  zu 
bewirken.  Die  obige  Zeile  könn¬ 
te  man  also  etwas  frei  überset¬ 
zen  mit  »solange  keine  Taste  ge¬ 
drückt,  tue  nichts«. 

Neben  diesen  beiden  Schlei¬ 
fenstrukturen  gibt  es .  natürlich 
noch  die  Zählschleife  FOR.. TO... 
ENDFOR,  die  völlig  analog  zur 
FOR . . . NEXT-Schleife  in  Basic  ar¬ 
beitet,  so  daß  die  Besprechung 
der  Arbeitsweise  entbehrlich 
erscheint. 

Entscheidungen 

fällen 


In  praktisch  jedem  Programm 
müssen  logische  Entscheidun¬ 
gen,  meist  sogar  in  großer  An¬ 
zahl,  getroffen  werden.  Comal 
stellt  dafür  eine  sehr  mächtige 
IF...THEN...ELIF...ELSE...ENDIF- 
Konstruktion  zur  Verfügung  die 
sich  in  der  Regel  über  mehrere 
Zeilen  erstreckt  und  ganze  Pro¬ 
grammblöcke  umfassen  kann. 
Daneben  gibt  es  —  wie  bei 
»WHILE«  —  noch  eine  einzeilige 
Kurzform.  Diese  Kurzform  be¬ 
steht  einfach  darin,  daß  hinter 
dem  »THEN«  in  der  gleichen  Zei¬ 
le  noch  ein  Befehl  folgt.  Das 
funktioniert  dann  völlig  analog 
zu  Basic,  nur  mit  dem  Unter¬ 
schied,  daß  in  Basic  noch  weite¬ 
re  Befehle,  jeweils  durch  Dop¬ 


pelpunkt  getrennt,  in  der  glei¬ 
chen  Zeile  folgen  dürfen.  Für 
derartige  Fälle  —  und  für  Fälle, 
die  man  in  Basic  so  gar  nicht  lö¬ 
sen  kann  —  wird  in  Comal  die 
mehrteilige  Form  der  IF-Anwei- 
sung  verwendet. 

Bei  dieser  Form  muß  die  Zeile 
nach  dem  »THEN«  beendet  wer¬ 
den.  Dann  werden,  falls  die  Be 
dingung  hinter  dem  IF  erfüllt  ist, 
alle  folgenden  Programmzeilen 
bis  zum  Ende  der  IF-Anweisung 
aus  geführt.  Eine  mehrzeilige  IF- 
Anweisung  muß  immer  mit  dem 
Schlüsselwort  »END1F«  beendet 
werden.  Außer  »ENDIF«  darf  die 
entsprechende  Zeile  allenfalls 
noch  einen  Kommentar  (//)  ent¬ 
halten.  War  die  IF-Bedingung 
nicht  erfüllt,  dann  wird  das  Pro¬ 
gramm  in  der  auf  das  »ENDIF«- 
Statement  folgenden  Zeile  fort¬ 
gesetzt. 

Doch  damit  sind  wir  noch 
längst  nicht  am  Ende.  Die  IF-An¬ 
weisung  kann  auch  um  einen 
»ELSE«-Tei!  erweitert  werden 
und  hat  dann  das  folgende  For¬ 
mat: 

IF  (Bedingung)  THEN  (Teil  1)  EL¬ 
SE  {Teil  2)  ENDIF. 

Der  Programmteil  (Teil  1)  wird 
ausgeführt,  falls  die  (Bedingung) 
erfüllt  war,  sonst  wird  (Teil  2)  aus¬ 
geführt.  Jeder  dieser  beiden 
Teile  ist  ein  völlig  unabhängiges 
Programmstück  und  kann  sei¬ 
nerseits  - ch  wieder  IF-Abfra- 
gen  enthalten. 

Will  man  gleich  mehrere  ver¬ 
schiedene  Bedingungen  testen, 
dann  kann  man  das  Comal- 
Schlüsselwort  »ELIF«  verwen¬ 
den.  »ELIF«  ist  eine  Abkürzung 
für  »ELSE  IF«  und  hat  auch  die 
gleiche  Wirkung,  nur  mit  dem 
Unterschied,  daß  keine  zweite 
IF-Anweisung  (zu  der  dann  auch 
ein  zweites  ENDIF  gehören 
müßte)  eröffnet  wird.  Das  fol¬ 
gende  Beispielprogramm  testet 
eine  einzugebende  Zahl  auf  be¬ 
stimmte  Werte: 

10  INPUT  "ZAHL  ?":  ZAHL 
20  IF  ZAHL  =  1  THEN 
30  PRINT  "EINS” 

40  ELIF  ZAHL  =  2  THEN 
50  PRINT  "Zwei" 

60  ELSE 

70  PRINT  "WEDER  EINS  NOCH 
ZWEI" 

80  ENDIF 

Ich  erspare  mir  —  und  Ihnen  — 
an  dieser  Stelle,  ein  entspre¬ 
chendes  Basic-Programm  vorzu¬ 
stellen  (GOTO,  GOTO,  ...). 

Für  den  Fall,  daß  die  zu  testen¬ 
den  Bedingungen  durch  einen 
Variablenwert  dargestellt  wer¬ 
den  können,  ist  die  CASE- 
Anweisung  vorgesehen.  Die 
Wirkungsweise  wird  wohl  am 
besten  klar,  wenn  wir  unser  Bei¬ 
spiel  zur  IF-Anweisung  auf  die 
CASE-Konstruktion  umschrei¬ 
ben: 

10  INPUT  "ZAHL  ?":  ZAHL 
20  OASE  ZAHL  OF 
30  WHEN  1 


40  PRINT  "EINS" 

50  WHEN  2 
60  PRINT  "ZWEI" 

70  OTHERWISE 

80  PRINT  "WEDER  EINS  NOCH 

ZWEI" 

90  ENDCASE 

In  der  Kopfzeile  einer  CASE- 
Anweisung  wird  also  eine  Varia¬ 
ble  angegeben,  gefolgt  vom 
Schlüsselwort  »OF«. 

Dann  folgen  beliebig  viele 
Zeilen  mit  »WHEN«-Konstruktio- 
nen.  Hinter  WHEN  ist  immer  ein 
Wert  angegeben,  der  bei  der 
Programmausführung  mit  dem 
aktuellen  Wert  der  CASE- 
Variablen  verglichen  wird.  Wird 
eine  Übereinstimmung  festge¬ 
stellt,  dann  wird  der  Programm¬ 
teil  hinter  der  entsprechenden 
WHEN-Anweisung  bis  zum  fol¬ 
genden  WHEN  ausgeführt.  Trifft 
keine  WHEN-Bedmgung  zu, 
dann  wird  der  Programmteil  hin¬ 
ter  OTHERWISE  ausgeführt. 
OTHERWISE  ist  optional  und 
muß  nicht  vorhanden  sein.  Trifft 
keine  WHEN-Bedingung  zu  und 
ist  kein  OTHERWISE  vorhan¬ 
den,  dann  wird  das  Programm 
hinter  ENDCASE  normal  fortge¬ 
setzt. 

Kommen  wir  nun  noch,  sowohl 
last  als  auch  least,  zu  einem  Be¬ 
fehl,  den  hartgesottene 
Spaghetticode-Programmierer 
schon  vermißt  haben  mögen. 
Gemeint  ist  die  GOTO-Anwei- 
sung,  die,  obschon  weitgehend 
entbehrlich,  auch  in  Comal  noch 
für  Spezialfälle  zur  Verfügung 
steht.  In  Comal  wird  allerdings 
nicht  zu  bestimmten  Zeilennum¬ 
mern  gesprungen,  sondern  ein 
GOTO  bezieht  sich  immer  auf 
ein  LABEL.  Ein  Label  ist  einfach 
irgendein  Name,  wie  er  auch  als 
Variablenname  verwendet  wer¬ 
den  könnte,  gefolgt  von  einem 
Doppelpunkt.  Vor  diesem  Na¬ 
men  kann,  muß  aber  nicht,  das 
Schlüsselwort  LABEL  stehen. 
Die  betreffende  Zeile  darf  nur 
dieses  Label  und  keine  weiteren 
Befehle  enthalten.  Wer  also  von 
GOTO  wirklich  nicht  loskommt, 
kann  das  Warten  auf  einen  Ta¬ 
stendruck  auch  folgenderma¬ 
ßen  programmieren  (nicht  zur 
Nachahmung  empfohlen): 

5  DIM  A$  OF  1 
10  LABEL  WARTEN: 

20  A$  :=  KEYS 

30  IF  A$  =  CHR$(0)  THEN  GOTO 
WARTEN 

Es  sollte  auch  nicht  unerwähnt 
bleiben,  daß  man  nicht  in 
FOR...ENDFOR-Schleifen,  Funk¬ 
tionen  und  Prozeduren  hinein 
oder  aus  ihnen  hinaus  springen 
sollte.  Mit  »Funktionen  und  Pro¬ 
zeduren«  ist  im  übrigen  bereits 
das  Stichwort  für  die  nächste  Fol¬ 
ge  gegeben.  Bis  dahin  können 
Sie  sich  ja  vielleicht  die  Zeit  da¬ 
mit  vertreiben,  Ihre  Basic-Pro- 
gramme  in  Comal  umzuschrei¬ 
ben,  und  zwar  selbstverständ¬ 
lich  ohne  GOTO!  (ev) 
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DISK-ECKE 


Wie  die  Überschrift  schon  andeutet, 
hat  sich  eine  Änderung  vollzogen.  Das 
»Ka«  für  Kassette  ist  weggefallen. 

Dafür  hat  sich  »Di«  zu  Disk  gemausert. 


Die  Diskette  ist  aufgrund  ihrer  Verbrei¬ 
tung  ausgewählt  worden.  Dafür  sind 
jetzt  alle  Programme  einer  Ausgabe  (VC 
20  und  C  64)  auf  einer  Diskette  erhältlich. 


Eines  hat  sich  aber  nicht  ge¬ 
ändert:  der  Preis.  Die  Dis¬ 
kette  für  eine  Ausgabe  kostet 
demnach  29,90  Mark.  Sie 
werden  bei  einigen  Disket¬ 
ten  bestimmte  Programme 
vermissen.  Deren  Autoren 
konnten  sich  nicht  entschlie¬ 
ßen,  ihr  Programm  im  Rah¬ 
men  des  Leserservice  für  ei¬ 
ne  Verbreitung  auf  Datenträ¬ 
ger  freizugeben.  Bei  den 
Ausgaben  5  und  6  können 
noch  Kassetten  (VC  ...)  be¬ 
stellt  werden.  Auf  kurze  Pro¬ 
gramme  wurde  aus  Grün¬ 
den  der  Übersichtlichkeit 
verzichtet.  Nun  noch  einige 
technische  Details.  Zu  den 
Programmen  sind  immer  die 
Seitenzahlen  angegeben, 
unter  der  Sie  die  Beschrei¬ 
bungen  in  der  entsprechen¬ 
den  Ausgabe  finden  können. 
Der  Diskette  liegen  also  kei¬ 
nerlei  Informationen  bei.  Le¬ 
sen  Sie  daher  aufmerksam 
die  Anleitung  (ob  SYS- 
Befehle  nötig  sind,  in  wel¬ 
cher  Reihenfolge  geladen 
werden  muß,  eventuelle 
Sprach-  oder  Speicherer¬ 
weiterungen  und  ähnliches 
mehr)  in  dem  jeweiligen  Arti¬ 
kel  nach.  Aus  Aktualitäts¬ 
gründen  wird  jeweils  die  ab¬ 
gedruckte  Version  angebo- 
ten.  Eventuelle  systemati¬ 
sche  Fehler,  die  sich  noch  im 
Programm  befinden  können, 
müssen  von  Ihnen  selbst, 
nach  Studium  des  Druckfeh- 
lerteufelchens,  korrigiert 
werden. 

Fehlende  Hefte  erhalten  Sie 
bei:  Markt  &  Technik 
Vertrieb  64’er 

Hans-Pinsel-Str.  2,8013  Haar 
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Bestell-Nr.  CB  022  DM  29,90* * 
Commodore  64 
Synthesizer  (AdM) 

SMON  (2.  Teil) 

3D-Vier  gewinnt 
Trace 
Strrngy 
Lader 

PET-Simulator 

Auto 

Listschutz 

Hires 

Simons  Axo  (SB) 
Kreuzworträtsel 

VC  20 

Mathematikal  Basic  (8K>)  (LdM) 
Fast  Tape 
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Bestell-Nr.  CB  020  DM  29,90* 


Commodore  64 

Turtle  Grafik  (LdM)  S.48 

Schachmeister  (AdM)  S.50 

SMON  (1.  Teil)  S.59 

Floppykurs  S.117 

FPLOT-Befehlserweiterung  S.73 
Get  Koala  pic  S.66 

Interrupttechnik  S.84 

Exsort  (UPB)  S.154 

Einzeiler  S.158 

Simons  Basic 

Befehlserweiterung  (SB)  S.90 

VC  20 

Pseudosprites  (8K)  S.76 

Laterna  Magica  (8K)  S.68 

Betriebssystem- 

Erweiterung  (24K>)  S.88 

Supergrafik  (GV)  S.71 

VC  20-Kurs  (GV>)  S.126 
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Bestell-Nr.  CB  019  DM  29,90* 
Commodore  64 

Finanzmathematik  (AdM)  S.68 
Hypra-Load  (LdM)  S.67 


Hardcopy 

Compact  2  S.86 

Hardcopy  MPS  801  S.82 

Hardcopy  VC  1526  neu  S.83 

Hardcopy  Gemini-lOX  S.85 

Hardcopy  FX-80  S.88 

Hardcopy  VC-  1520  farbig  S.84 

Apocalypse  now  S.106 

Supercopy  S.102 

Disk-Dump  S.95 

Diskettenorganisation  S.97 
User-Pom -"Tastatur  S.92 

Maske-(UPB)  S.172 

VC  20 

Epedemic  S.112 

Video-Vorspann  S.81 
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Bestell-Nr.  CB  014  DM  29,90* 

Commodore  64 

Indexsequentielle  Adreßdatei, 
S.  54  —  Spring  Vogel  (LdM),  S.  68 
—  Orgel/Synthesizer  (AdM),  S. 
70  —  Sprite  Aid  + ,  S.  89  —  Screen 
Change,  S.  94  —  List-Stop,  S.  97  — 
Renew,  Datawandler,  S.  102  — 
Synthetische  suchen,  S.  104  — 
Geregelter  Zahlungsverkehr,  S. 
164 

VC  20 

Schiebung  (GV>),  S.  77  —  Deu¬ 
zei  (8K>),  S.  79  — Hardcopy  1520 
(GV>),  S.  87  -  RS232-Interface 
(GV>),  S.  100  —  Datawandler 
(GV>),  S.  102 
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Bestell-Nr.  CB  013  DM  29,90* 

Commodore  64 

Castle  of  Doom,  S.  66  —  Pac-Boy, 
S.  89  —  Kopplung,  S.  73  —  User- 
Port-Display,  S.  97  —  RS232-Test, 
S.  77 — View  BAM,  S.  99  —  Görlitz 
Hardcopy,  S.  83  —  Milchvieh,  S. 
156 

VC  20 

Kudiplo  (3K),  S.  86  —  Print  at  Re- 
store  n  (GV),  S.  101 
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Bestell-Nr.  CB  017  DM  29,90* 
Commodore  64 

Terminalprogramm,  S.  24  —  Soft¬ 
warekatalog,  S.  72  —  Russvok 
(SB),  S.  76  -  Crown  No.  1,  S.  80  - 
Space  Invaders,  S.  81  —  1520 
Hardcopy,  S.  108  —  Centronics 
Interface,  S.  110  —  Kurvendiskus¬ 
sion,  S.  116  —  Copy  Rel.  Files,  S. 
132  —  Autostart,  S.  138  —  Strubs 
(OP  u.  QP),  S.  154 
VC  20 

Rätsel,  S.  122 
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Commodore  64 

Bestell-Nr.  CB  018  DM  29,90* 
Lehrerkalender,  S.  64  —  Morse¬ 
trainer,  S.  72  —  Supervoc,  S.  69  — 
Grafische  Darst.  (SB),  S.  82  —  Hot 
WLeels,  8.  92 

VC  20  Bestellnummer  VC  008 
Movemaster  (8K),  S.  78  —  Ghost 
Manor(GV),  S.  104,  Logic  Disass. 
(3K>),  S.  108,  Underground 
(LdM  16K),  S.  120  DM  29,90* 

Ausgabe  5/84 

Commodore  64 

Bestell-Nr.  CB  016  DM  29,90* 
Adreß-&Telefonregister,  S.  64— 
Fahrsimulator,  S.  82  —  Schatzsu¬ 
cher  (LdM),  S.  90 
VC  20  Bestellnummer  VC  007 
Relative  Datei  (8K),  S.  69  — 
Schmätzer  (GV)  S.  76  —  3D- 
Grafik  (8K),  S.  78  -  Rallye  (28K), 
S,  128  DM  29,90* 


Bedeutung  der  Abkürzungen 

*LdM  =  Listing  des  Monats 

*AdM  =  Anwendung  des  Monats 

*S8  =  Simons  Basic 

*GV  =  Grundversion 

*GV>  =  alle  Speicherversionen  können 

verwendet  werden  (einschließlich  GV) 

*3K  =  3-KByte-Speichererweiterung 

wird  benötigt 

*8K  >  =  Speichererweiterung  größer 

als  8  KByte  wird  benötigt 

*UPB  =  ünterprcgrammbibiiothek 


Bestellungen  richten  Sie  bitte  an: 

M  &T  Buchverlag,  Hans-Pinsel-Str.  2,  8013  Haar 

*Alle  Preise  inklusive  Mehrwertsteuer.  Der  Versand  erfolgt  mit  offener  Rechnung  zuzüglich  Porto  und  Verpackung. 


64er-online.de 

64er-oniine.net 


Kreuzworträtsel-Wettbewerb 


C  64 


Fortsetzung  von  Seite  38 

To  Sprite,  Copy  Sprite  To  Hires«.  Zeit¬ 
lupengrafiken  und  Bewegungsstu¬ 
dien  wie  etwa  der  Flug  eines  Vogels, 
werden  innerhalb  weniger  Minuten 
zur  Realität.  Wesentlich  unterstützt 
wird  der  Programmierer  bei  seinen 
Entwürfen  durch  wichtige  Befehle 
wie  »Dot,  Line,  Box,  Circle«  und  an¬ 
dere  bekannte  Grafikhilfen. 

Weil  die  Programmierer  bei  HES- 
ware  mit  Vorliebe  die  Interrupttech¬ 
nik  verwendet  haben,  lassen  sich 
Text  und  Grafik  beliebig  mischen. 
Zusammen  mit  der  umfangreichen 
Farbgebung  sind  so  Bilder  auf  der 
Diskette  speicherbar  und  stehen 
bei  Bedarf,  beispielsweise  in  einem 
Ad  venture,  rasch  zur  Verfügung. 

Fast  ebenso  umfangreich  wie  der 
Befehlssatz  für  die  Sprite-Program- 
mierung  sind  die  neuen  Komman¬ 
dos  zur  Tonerzeugung.  Alle  Musik¬ 
funktionen  werden  wie  die  Sprites 
mterruptgesteuert.  Man  kann  sich 
sogar  beim  Programmieren  mit  Mu¬ 
sik  unterhalten  lassen.  Alle  wichti¬ 
gen  Parameter  wie  Attack,  Sustain, 
Release,  Decay  und  Wellenform 
werden  über  simple  Basic-Befehle 
eingestellt. 

Nach  all  diesen  Erläuterungen 
entsteht  vielleicht  der  Eindruck,  bei 
»Graphic-Basic«  handle  es  sich  um 
eine  reine  Grafikerweiterung.  Weit 
gefehlt!.  Es  gibt  Befehle  zur  Funk¬ 
tionstastenbelegung,  ebenso  wie 
solche  zur  Abfrage  der  Joysticks 
und  zur  Diskettenhandhabung  (Dir, 
Disk).  Auch  über  die  typischen  Be¬ 
fehle  vieler  Erweiterungen  für  be¬ 
dingte  Sprünge  (If-Then-Else  oder 
On-Error-Goto)  verfügt  die  Hes- 
Grafik.  Am  ungewöhnlichsten  ist 
aber  der  »Wmdow«-Befehl,  der  es 
erlaubt,  den  Büdschirm  in  mehrere 
»Aktivitätszonen«  zu  unterteilen.  Ab¬ 
schließend  soll  noch  angemerkt 
werden,  daß  sowohl  Text  als  auch 
Grafik  auf  verschiedenen  Druk- 
kern  (Copy)  ausgegeben  werden 
kann. 

Wer  die  Grafik-  und  Tonprogram¬ 
mierung  zu  seinem  Lieblingsthema 
gewählt  hat,  aber  auf  den  Komfort  ei¬ 
niger  Hilfen  zur  strukturierten  Pro¬ 
grammierung  nicht  verzichten 
möchte,  findet  in  der  Hes-Grafik  den 
richtigen  Partner.  Für  relativ  wenig 
Geld  erhält  er  ein  Werkzeug,  mit 
dem  der  eigenen  Kreativität  keine 
Grenzen  mehr  gesetzt  sind.  Für  mei¬ 
nen  C  64  ist  »Graphic-Basic«  jeden¬ 
falls  zum  gern  gesehenen  Prinzen 
geworden. 

(Arnd  Wängler/Martin  Gaksch/ev) 


KREUZWORTRÄTSEL  SELBER  MACHEN- 

Kreuzworträtsel  sind  bei  jung  und  alt  beliebt. 

Das  beweisen  die  vielen  Rätselzeitschriften. 
Aber  ein  Kreuzworträtselprogramm  zu  schreiben  ist 
etwas  ganz  anderes,  als  ein  Rätsel  zu  lösen. 


Senkrecht : 

!2)  ia  Dialog  ait  d.  Cosputer  arbeiten;  (3)  Speicherzelle  ait  direkte«  Zugriff;  (4)  Folge  von  Buchstaben/ 
Ziffern;  (5)  Prograsadarstellung  auf  Papier;  (6)  Einheit  des  elektrischen  Stroas;  (7)  Enal.  f.  'Stapel'; 
(11!  Tastenfolge  b.'enel.  Tastaturen;  (13)  Mengeder  verwendbarer.  Synbole;  (15)  Saaselbegrift  f. 

Coaputerbauteile;  (17)  Rueckkehr  in  den  Anfangszustand;  (ISi  Spannunas-  oder  Stroasignal;  (19)  Billiger 
Bandspeicher;  (2!)  Jargon  f.  'Disketter.statior.';  (22)  Ein  Punkt  auf’de*  Graf i kbildschir»;  (24)  Hoehere 

strukturierte  Progr. Sprache;  (26)  Voa  Coapiler  erzeugter  Kode;  (28)  Folge  v.  Anweisungen  an  d.  Cosputer; 
(30!  Basic-Befehl  :.  Laden  des  Speichers;  (311  Variaöle  z.  Uebergabe  an  Unterprgr.:  (34)  Sisulation  eines 

fresden  Cosputers;  (35;  Druckerteil  f.  Endlospapier;  (33)  Hediu«  zua  Festhalten  von  Daten;  (401  Systolische 
Einheit  f .Xertzuweisung;  (41)  Parallele  Drucker-Schnittstelle;  146)  Logik  Bit  diskreten  Zustaenden; 

(47)  Billiger  Massenspeicher;  (49)  Logische  Infomatior.seinheit;  (50)  Systolischer  Nase  f.  eine  Adresse; 
(51 )  Einzelne  logische  Funktion;  (56)  Papalaeres  Betrisbssytea  f.  Z80-uP;  (57!  Ahk.  f.  'Diqital  nach  Analog'; 
!5Bi  Verbindur.gsf eitünu  ie  Prozessor;  (59)  Abk.  f.  'Analog  nach  Digital':  (60)  Hersteller  von  Hikrocosputern; 
(63!  Steuerzeichen  f.  Eontrollcodes; '  (64!  Mi kroschal ter  au»  der  Platine;  (66)  ASCll-Zeichen  f.  Zeilenvorschub; 
(iS)  Verzweiqungsanweisur.g  in  BASIC;  (72)  Strahiungseinheit;  (74)  Abk.f.  ’hoeherwertiges  Bit': 

(75!  Abk.f.  'Exklusiv-Oder  -Verknuepfung;  (76!  Abk.f.  ‘Megahertz':  (Bl)  Er, ol.  f.  Maedchen;  !B6)  Neues  Testasent; 
iS?)  Evangelisch:  (90!  Grand  Fr i : :  (92!  Volkswagen:  (93:  Deutscher  Fussbäl 1 bund;  (96!  Kurzbez.  f.  ‘ 1 icht Jahr ' ; 
(97!  Doktor;  (98!  Kurzbez.  f.  'Technische  ünivers.';  (102!  Firaa;  (104)  Interessengeseinschaft 

Waagerecht : 

(!)  Aufgabe  dieses  Wettbewerbs;  (8!  Wichtiges  Einaabegeraet;  (?)  Progress  zur  Testeingabe/  Korrektur; 
(10)  Scnreibaarke  auf  den  Bildschirs;  (12/  Basic-Betenl  zus  Lesen  d.  Speichers:  (14)  Pruefsusse  einer 

Bytefalge;  (16)  Leicht  lernbare  Progr. -Sprache;  (20)  Meldung  ueber  einer  Beraetzustand;  (23)  Die  haelfte  eines 
Bytes  oder  4  Bit;  (25)  Prograa*  zu*  Starten  von  Coeputern;  (27)  Geraet  z.  Cosputerverb.  per  Telefon; 

!z?)  Einheit  f.  d.  elettr.  Kapazitaet;  (32)  Wiederverwendbares  ROH;  (33!  Bildschiraaussch.nitt; 

(36)  Datentrar.sfer  e.  eehreren  Leitungen:  (37!  Prograss  zur  Steuerung  v.  Geraeten;  (39)  Sich  selbst  aufrufendes 
Unterprog-.;  (42)  Jargon  fuer  Coaputer';  (43)  Punktfeld  f.  Zeichendarstellung;  (44)  Adresse  die  andere  Adr. 
verweist;  (45)  Logische  Inforastionseinheit:  (48)  Befehl  zur  Beendigung  v.  Unterprgr.;  (521  Hoehere 

coaserzielle  Prgr. Sprache;  (53)  Ketb.  Seraet  z.  Zeichnen  v.  Bildern;  (54!  Ionische  Speichereinheit; 

(55)  Kcchintegnerter  Baustein;  (62)  fibk.  f.  'Zeichen  loeschen';  (65!  Abk.f.  Zeiiendrucker';  (67>  Technik  zur 
Herstellung  von  IC's;  (6?)  Abk.  f. 'Di sketten-Betri ebssvstee' ;  (70)  Abk.  f.  'Television';  (71)  Les-  und 

schreibbarer  Speicher;  (73)  Abk.  f.  Nanosekunde';  (77)  Progr. Sprache  f.  Listenverarbeitung;  (73)  Abk.  f. 
'Hertz':  (79)  Abk.f,  Eosputer-gestuetzter  Entwurf;  (80)  Griechischer  Buchstabe;  (32)  Dritter  Ton  von  Grundton; 
1831  Abt.  f.  ein  engl.  Laenqeneass:  (84!  Abk.  f.  'Dberbuergeraeister';  (85)  In  Ordnung;  (37)  Abk,  f.  ‘Sankt’; 
(33)  Seeeeile;  (9!)  Abk.  f.  'Jahrhundert';  (94!  Corps  Consulaire;  (95)  Sozialdesokrat.  Partei  Deutsch!.; 
(99)  Nordeutscher  Rundfunk;  (100)  Kurzbez.  f.  'Universitaet';  (101)  Kilo-fiapere;  (103)  Abk.  f.  'Hektar'; 
(105!  fibk.  f.  'gegruendef 

Bild  1.  Das  Ergebnis  eines  Programmlaufs.  Während  das  Programm  läuft,  werden  die  vom  Computer 
eingesetzten  Wörter  direkt  in  das  Rätsel  am  Bildschirm  sichtbar  eingetragen.  Das  geht  so  schnell,  daß  Sie 
mit  dem  Auge  kaum  nachkommen  körnen.  Erst  im  Ausdruck  werden  alle  Begriffe  durch  Zahlen  ersetzt.  Die 
Lösung  dieses  Rätsels  finden  Sie  übrigens  auch  in  diesem  Heft  an  anderer  Stelle. 
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1000  MAKK  FÜR  OEM  GEWIMMER 

Diese  Aufgabe  ist  eine  Herausforderung 
für  gute  Programmierer. 

Das  beste  Ergebnis  des  Kreuzworträtsel- 
Wettbewerbs  stellen  wir  Ihnen  vor. 


Es  läßt  kaum  Wünsche  of¬ 
fen.  Der  Bildschirmauf¬ 
bau  ist  genauso  gut  gelöst 
wie  die  Druckerausgabe. 
Auch  den  Bedienungskom¬ 
fort  kann  man  sich  kaum  bes¬ 
ser  vorstellen. 

Ein  Kreuzworträtselpro¬ 
gramm  zu  schreiben  ist  eine 
knifflige  Aufgabe.  Nicht  nur 
die  für  den  Betrachter  eines 
Rätsels  selbstverständlichen 
Regeln,  wie  das  Kreuzen  von 
Worten  senkrecht  zueinan¬ 
der  und  die  dichte  Vernet¬ 
zung  von  Wörtern,  auch  die 
Geschwindigkeit  und  der 
Komfort  des  Programmes 
spielen  eine  große  Rolle,  Da¬ 
mit  blieb  in  diesem  Falle  nur 
der  Einsatz  von  Maschinen¬ 
sprache  übrig.  Das  Kreuz¬ 
worträtselprogramm  besteht 
also  aus  zwei  Teilen.  Einem 
Rahmenprogramm  in  Basic, 
sowie  einer  Maschinenrouti¬ 
ne,  die  im  Bereich  ab  $C000/ 
49152  geladen  wird  und  die 
die  Schwerarbeit  leistet  (zir¬ 
ka  30  Wortvergleiche/Se¬ 
kunde). 

Um  das  Rätselprogramm 
nicht  unnötig  mit  der  Einga¬ 
be  des  Wortschatzes  zu  bela¬ 
sten,  werden  die  Wörter  vor¬ 
her  mit  einem  Editor  einge¬ 
geben  und  bis  zu  255  in  ei¬ 
nem  File  auf  Diskette  abge¬ 
legt.  Das  eigentliche  Rätsel¬ 
programm  liest  diese  Files 
dann  ein  und  verwendet  sie 
im  Rätselfeld  (Bild  1).  Trotz¬ 
dem  ist  die  Eingabe  von 
Hand  möglich.  Denn  der 
große  Wortschatz  eines 
Menschen  kann  niemals  auf 
Diskette  gespeichert  wer¬ 
den. 

Die  Programme 

Bevor  also  die  Erzeugung 
eines  Kreuzworträtsels  star¬ 
ten  kann,  muß  ein  Wortschatz 
mit  dem  Lexikon-Editor  ein¬ 
gegeben  werden  (Bild  2). 
Dieses  Programm  hat  vier 
Aufgaben: 

a)  Directory  lesen.  Dabei 
werden  nur  die  bereits  auf 
Diskette  vorhandenen  Wort¬ 
schatzdateien  angezeigt. 


b)  Wortdatei  anlegen.  Mit 
diesem  Programmteil  kön¬ 
nen  Sie  bis  zu  255  Wörter  und 
die  zugehörigen  Fragestel¬ 
lungen  eingeben  und  diese 
dann  auf  Diskette  als  Wort¬ 
datei  ablegen.  Eine  speziel¬ 
le  Eingaberoutine  (Zeile 
1000  —  1099)  sorgt  dafür, 
daß  nur  erlaubte  Zeichen 
eingegeben  werden.  Es  ist 
zum  Beispiel  unsinnig,  ein 
Kreuzwort  einzugeben,  das 
aus  mehreren  Teilen  be¬ 
steht,  wie  etwa  »Level  II  Ba¬ 
sic«,  oder  eine  Mischung  aus 
Zahlen  und  Buchstaben,  wie 
»C  64«. 

So  können  Sie  sich  also  im 
Laufe  der  Zeit  eine  ganze  Bi¬ 
bliothek  von  Wortschätzen 
aufbauen,  die  beliebig  wäh¬ 
rend  der  Rätselerzeugung 
einzusetzen  sind. 

Eine  Besonderheit  ist  die 
Verkettung  von  Dateien.  Sie 
können  Nachfolgedateien 
benennen,  die  im  Rätselpro¬ 
gramm  automatisch  nachge¬ 
laden  werden,  sobald  der 
Vorgängerwortschatz  er¬ 
schöpft  ist.  Beispiel:  Sie  wol¬ 
len  ein  Rätsel  zum  Thema 
»Computer«  basteln.  Geben 
Sie  jetzt  mit  Hilfe  des 
Lexikon-Editors  den  ersten 
Teil  des  geplanten  Wort¬ 
schatzes  ein  und  benennen 
ihn  mit  »Computer.  1«.  Der  Fol¬ 
gewortschatz  soll  »Compu- 
ter.2«  sein.  Nachdem  Sie  den 
1.  Teil  abgespeichert  haben, 
geben  Sie  den  2.  Teil  ein  und 
benennen  den  Nachfolger 
mit  »Computer.  3«  und  so  wei¬ 
ter.  Wollen  Sie  diese  Kette 
beenden,  wird  einfach  ein 
»q«  (Quit)  für  den  Nachfolger 
angegeben.  Das  Rätselpro¬ 
gramm  bricht  dann  später  an 
dieser  Stelle  mit  dem  auto¬ 
matischen  Nachladen  ab. 

Bei  dieser  Methode  hängt 
die  Qualität  des  Rätsels  ent¬ 
scheidend  von  der  Staffe¬ 
lung  der  Dateien  ab,  das 
heißt  im  ersten  File  sollten 
lange  Wörter  stehen  und  mit 
jedem  Folgefile  die  durch¬ 
schnittliche  Wortlänge  ab¬ 
nehmen.  Die  Erstellung  des 
Rätsels  gerät  dadurch  we¬ 


sentlich  flüssiger,  denn  mit 
zunehmender  Dichte  des 
Wortfeldes  müssen  die  Wör¬ 
ter  natürlich  immer  kürzer 
werden,  damit  sie  noch  em- 
zubauen  sind. 

c)  Wortdatei  ändern.  Mit  Si¬ 
cherheit  tauchen  irgend¬ 
wann  falsch  emgegebene 
Kreuzwörter  auf,  so  daß  eine 
Datei  verbessert  werden 
muß.  Unter  diesem  Pro¬ 
grammpunkt  kann  daher  die 
entsprechende  Wortdatei 
geladen  und  editiert  wer¬ 
den. 

d)  Abbrechen.  Mit  Verlassen 
des  Editors  kann  das  Rätsel¬ 
programm  geladen  und  ge¬ 
startet  werden,  so  daß  em 
fließender  Übergang  von 
der  Wortemgabe  zur  Rätsel¬ 
erstellung  möglich  ist. 

Nun  zum  Kreuzworträtsel¬ 
programm.  Wie  schon  ge¬ 
sagt,  besteht  dieses  Pro¬ 
gramm  aus  zwei  Teilen,  einer 
Maschinenroutine  und  dem 

Basic-Rahmenprogramm. 
Dieses  Rahmenprogramm 
(Bild  3)  will  ich  zuerst  be¬ 
schreiben. 

Nach  dem  Start  des  Pro¬ 
grammes  beginnt  zunächst 
eine  ■* 7~  dalisierungsphase 
(Zeilen  27—39).  In  einem  Un¬ 
terprogramm  (ab  Zeile  970) 
werden  die  Maschinenrouti¬ 
ne  für  das  Kreuzworträtsel 
und  Treibersoftware  für  den 
Drucker  am  User-Port  gela¬ 
den.  Wenn  Sie  einen  Druk- 
ker  am  IEC-Bus  betreiben, 
ist  dieser  Programmteil  (Zei¬ 
le  976  +  979)  natürlich  nicht 
nötig  und  zu  entfernen. 

Im  folgenden  Unterpro¬ 
gramm  zur  Dimensionierung 
der  Variablen  und  Definition 
einiger  Konstanten  (Zeile 
915—969)  erfolgt  der  erste 
Sprung  in  die  Maschmenrou- 
tine  (Zeile  937),  um  sie  zu  ini¬ 
tialisieren. 

Nach  dem  Bildaufbau  (Un¬ 
terprogramm  ab  Zeile  600), 
ist  auf  dem  Monitor  em  Kreuz¬ 
wortfeld  von  20x20  Zeichen 
zu  sehen.  Das  Programm 
fragt  jetzt  nach  dem  Start¬ 
wort,  das  als  erstes  Wort  im 
Feld  eingetragen  werden 
muß,  um  der  Maschinenrou¬ 
tine  einen  Kristallisations¬ 
punkt  zu  bieten  (Zeile  34— 
35).  Geben  Sie  ein  möglichst 
langes  Wort  ein,  das  Sie  zum 
Beispiel  unbedingt  im  Rätsel 
verarbeiten  möchten.  Bei 
dieser  Eingabe  findet,  wie 
schon  beim  Editor,  ein  Zei- 

Fortset2ung  auf  Seite  1S8 


Zur  Person  des  Autors: 

Gert  Büttgenbach,  geb.  20. 
09.  53,  Beruf:  Nautischer  Offi¬ 
zier. 

Wer  sich  für  eine  Berufs¬ 
ausbildung  als  Deckoffizier  in 
der  Handelsschiffahrt  ent¬ 
scheidet,  so  wie  ich  1977,  der 
ist  ein  potentielles  Opfer  der 
Computersucht.  Denn  auf  der 
Brücke  eines  Frachters  kann 
man  eine  ganze  Menge  schon 
mit  einem  Taschenrechner 
zaubern.  Die  Navigation  bietet 
da  em  weites  Feld.  So  dauerte 
es  auch  kein  halbes  Jahr  und 
ich  stand  klopfenden  Herzens 
vor  der  schillernden  Vitrine  ei¬ 
nes  Kaufhauses  m  Houston/Te¬ 
xas  und  vernarrte  mich  in  ei¬ 
nes  der  ersten  Exemplare  des 
TI59.  Ich  mußte  mir  eine  ganze 
Monatsheuer  bei  meinem 
Kumpel  pumpen,  um  in  den  7. 
Bytehimmel  aufzusteigen.  Von 
nun  an  gab  es  keine  Langewei¬ 
le  mehr.  Bald  berechnete  mein 
Rechenknecht  simultan  aus  7 
Sternenbeobachtungen  den 
Standort  auf  See. 

Während  meines  Seefahrt¬ 
studiums  an  der  Fachhoch¬ 
schule  Hamburg  lernte  ich 
dann  andere  Computerfreaks 
kennen.  Inzwischen  marmelte 
ein  TRS80  Modell  I  in  meiner 
Bude  und  ich  mußte  erst  ein¬ 
mal  lernen,  daß  em  Computer 
nicht  alles  kann.  Dabei  ging 
der  Respekt  vor  diesen  Din¬ 
gern  endgültig  flöten.  In  die 
weite  Welt  der  CBMs  bin  ich 
durch  meinen  Physikprofessor 
geraten.  Gemeinsam  mit  an¬ 
deren  Studenten  bildeten  wir 
bald  einen  harten  Kern,  der 
der  zweitschönsten  Sache  auf 
der  Welt  ungehemmt  frönte. 
Als  das  Ende  des  Studiums 
nahte,  war  das  Thema  meiner 
Abschlußarbeit  Schuld  an  der 
»Ehe«  mit  dem  C  64.  Wir 
brauchten  ein  Grafikwunder 
für  die  Simulation  eines  Radar- 
büdes.  Und  da  kam  gerade  ein 
merkwürdiger  »Spielcompu¬ 
ter«  (man  konnte  einen  Joystick 
anschließen,  sehr  verdächtig!) 
über  den  Speicherhorizont, 
der  mehr  zu  können  schien  ... 

Wie  kam  ich  nun  auf  die  ver¬ 
rückte  Idee,  ein  Kreuzworträt¬ 
sel-Programm  zu  schreiben? 

Das  hatte  ich  schon  auf  Mo¬ 
dell  I  probiert,  und  gemerkt 
wie  vielfältig  die  Probleme  da¬ 
bei  sind.  Als  ich  vom  Preisaus¬ 
schreiben  im  64'er-Magazin 
las,  war  es  natürlich  eine  Her¬ 
ausforderung,  die  alte  Nuß  zu 
knacken, 

Mein  nächster  Computer? 
Sorry,  aber  das  könnte  ein 
Macintosh  sein,  denn  mein 
Buckel  wird  langsam  krumm 
vom  Maschinendenken! 

(Gert  Büttgenbach/gk) 
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10  print"Cclr3“; :t=ti+180 

11  print"  i - ' 

12  print"  I  lexikon-editor  hh,30.5.84  I 

18  print"  1 - ’ 

19  if  ti  <tthen 19 

20 
22  s 

24  rem"  hauptprogramm 

26  rem“  - 

28  : 

30  gosub900:  rem"  Vorbereitungen 
32  : 

34  gosub600: rem"  menue 
36  t 
3B  m=0 

40  if f S="  a'then  gosub3006: goto34: rem 

■fl 

42  if  f  *="  3''then  gosub0300:  goto34:  rem 

f  3 

44  if  f *-"H"thenclr : gosubOSOO: goto34: rem 
-f  5 

46  if f S=" srthenprint" Cclr 3 " :rem  f7 

47  : 

48  print  "  Sicher  (j/n)  7" 

50  wai t 203 , 64 : poke 1 98 , 0 ; wai t203 , 63 

52  getfS:iff*<>" j"then34 

53  s 

54  printchrS (9) ; 

60  print“Lcrsd]  Raetsel -Programm  (j/n)  ? 

62  wai t203, 64: poke 198,0: wai t203,63 

63  : 

64  getf*:iff*="n"then90 
66  iffSO" j"then62 

60  print"(clrHDdd“-*chrf  (34)  ; 

70  print "raetsel ehr* (34) ; " ,8" 

72  print“ Cer sd*  3  3":print"run" 

74  pokel98,3:poke631 , 19 

76  poke632,  13:  poke6o_>,  13 

77  goto97 
88  : 

90  poke792,71:rem"  restore  und 

92  poke78B,49:rem"  stop  reparieren 
94  : 

97  end 

93  t 
99  : 

300  rem“  datei  aendern 

302  rem"  - 

304  : 

306  gosub700: rem"  Datei  einiesen 

307  : 

308  ef =0: pri nt" C cl r3 " 

309  print"  Mit  Crvon3RETURNtrvof 3  auswae 
hlen" 


310  print11  Mit  C rvon] LEERTASTE Crvof  3  we 

iter“ 

311  print"  Mit  Crvon3qCrvof 3  abbre 

chen" 

312  gosub2000: rem"  Datei  auf  listen 
513  : 

314  print" Ccrsd]  Crvon3Fertig  ?Crvof] 
(j/n)  " 

316  wait203,64: poke 198 ,0: wai t203,63 
318  getf*: if f S="n"then308 
320  i f f *<>" j " then316 

322  : 

323  ifef=0then397 

324  gosub800:rem"  Datei  aufzeichnen 
395  : 

397  return 

398  : 

399  : 


500  rem"  datei  eingeben 

502  rem"  - - 

503  : 

504  print "Cclr]"; : gosub900 

505  : 

506  ts— " C rvon lWortschatz- Name: 1 

507  l  =  14:m=l:fS=l,,':gosubl000 

508  af *="+”+chr* (20) +f * 

510  : 

519  print 

520  t*="Crvon IFolge-Wortschatz 
):“ 

521  l=14:m=l:f*="": gosublOOO 

522  nf  S="-t-"+chrS  (20)  +f  S 

524  : 

525  print " Cclr 3 ": nr=0: ef=0 
527  : 


(q=keinen 


528  rem"  woerter  eingeben 

529  gosub650 

530  : 

532  if f *="q"thennr=nr — l:goto539 
534  if nr<254thennr=nr+l 

536  if peek (210) =7thenprint" Cclr 3 “ 

537  goto529 

538  : 

539  if ef =0then597 

540  rem"  datei  auf  diskette  ablegen 

541  f g— nr : gasubSOO 
592  : 

597  return 

598  : 

599  : 

600  rem"  menue 

602  rem"  —  -  * 

604  : 

606  print" Cclr]"; :f *= " " 

608  print"Ccrsd3  Crvon3Fl Crvof 3  Directo 


r  y 

610  print"Ccrsd]  Crvon]F3Crvof ]  Datei  a 
endern 

612  print" Ccrsd]  Crvon]F5Crvof 3  Datei  a 
nlegen 

614  print"Ccrsd]  Crvon3F7Crvof 3  Abbrech 
en 

616  : 

618  wai t203,63: getf* 

620  if f *<chr* ( 133) orf *>chr* ( 136) then618 

621  print"Cclr] " 

622  : 

647  return 

648  : 

649  : 

650  rem"  kreuzwoerter  eingeben 

651  rem"  - 

652  : 

653  n*=str*(nr) : n*=right* (n*, len (n*> -1) 

654  tS="  Crvon]  "+n**“  -  Kreuz  wort  Crvof  3  (q 
=ende) “ 

655  1=20: m=0: f  *=kw* (nr ) : gosublOOO 

656  i f f *="q”then697 

657  if len (f *)<2thenpr int"Ccrsu*  3  ]";:go 
to655 

658  kw*(nr)=f*:print 

659  : 

664  t*=” Crvon3Fragestel lung Crvof 3 " 

666  1=35: m=l : f *=f w* (nr) : gosublOOO 

681  fw*(nr)=f *:print 

682  : 

683  ef =1 
686  : 

697  return 

698  : 

699  : 

700  rem"  datei  einiesen 

702  rem"  - 

703  : 

705  print" Cclr]" 

706  t*=" C rvon 3Wortschatz Crvof 3  (*=direct 

ory)  " 

708  l=14:m=l:f*="":gosubl000 

709  if f S="$"thenm=l : gosub3000 

710  iff S=" "then705 

712  :  - 

713  afS="-f"+chr*  (20) +f* 

714  dpenl ,8,2, "0: “+af *+“ ,s,r" 

716  : 

718  inputHl ,f g: rem"  fsldgroesse 

719  : 

720  rem”  woerter/f ragen  einiesen 

721  forn=0tofg 

722  : input tt  1 , kw£ (n) ,f wS (n) 

724  next 


15  print" Cclr J ” ; 

16  print"  .  — - 

17  print"  Ikreuzwortraetsel  Version  l.al 

18  print"  !  I 

19  print"!  von  buettgenbach  19841 

20  print"  1  • 

22  : 

23  : 

24  rem”  *««*««*»  hauptprogramm  «»«»»*»* 

25  rem"  ******************************** 

26  : 

27  rem"  vorher ei tungen  - 

28  clr 

29  gosub97ö  :rem"  routinen  laden 

30  gosub915  :rem"  Vorbereitungen 

32  gosub600  :rem"  bild  auf bauen 

33  : 

34  t*=“Startwort"  :rem"  l.wort 

35  nr=l : gosub654  :rem"  eintragen 

36  : 

37  gosub700  :rem"  Wortschatz  einiesen 

38  poke53280 , 0 : poke5328 1,0 

39  : 

40  rem"  **•**■»■***  hauptschleife  **•»**♦** 
42  : 

44  pokel42,bs:poke26,0:u=usr (dl) 

46  : 

47  on  u  goto  50,64,70,80 

48  : 

49  ram"  - .  taste  war  gedrueckt 

50  getf* 

51  i  f  f  *="  S!"thengosub650:goto59 

52  i  f  f  J“"t,!"thengosub740!goto59 

53  if f*“"d"thcngosub700:goto60 

54  if f S-" H"thengosub450:goto60 
53  i f f *=" E"thengosub092:goto59 

56  l  f  f  *="<t"thengosuböS7 :  goto59 

57  iffg>0then44 

58  gotoSO 

59  print " C homeJ 1 1*; 1 1  * 

60  poke532B0,0:poke53281 ,0; gosub337 

61  i f f g>0then44 


62  gotoSO 

63  : 

64  rem"  —  suche  war  verge’blich  - 

65  ifbs=0thengosub!10 

66  bs=0:goto44 

69  : 

70  rem"  ein  wort  wurde  gefunden  - 

71  w=peek (25) 

72  f sl!nr)=strt( (peek ( 140) =0) >+fwS(w> 

73  gosub300:nr=nr+l: if fg>0then44 

75  : 

76  print " C hörne 3 " ; 11*; " Lhome] ";tab(17)j 

77  print“ Ccyanl Crvon JWortschatz  erschoep 
ft  !  " 

78  gosub337: goto5ö 

79  : 

80  rem"  max.  ordn.zahl  erreicht  - 

81  print "Chome3";  US;  "  Chome]  Ccyan]  Crvon] 
Raetsel  fertig: Crvof 3 " ; 

82  print"  Ausdrucken  mit  C rvon 3 RETURN C r 
vof  3  " 

83  wait203,64:wait203,63 

84  print"  Chome]  “  ;  US;  1  lS:gosub740 
S5  goto95 

86  : 

87  rem"  raetsel  loeschen  - 

83  fS="Raetsel  loeschen" : gosub4000 

89  if f *< >" J "thenreturn 

90  run30 

91  : 

92  rem"  — - - Programm  abbrechen  - 

93  FS=”Abbrechen":gosub4000 

94  i  ff  SO"  j  "thenreturn 

95  gosubSOO: rem"  programm-ende 

96  : 

97  end 

98  ! 

99  : 

100  rem“  #*»*»«*  Unterprogramme  »«*»»«« 
102  rem"  **»»***«■*•*»******■»*»«*•*■»•***•** 
104  : 

106  : 


110  rem”  autom.  nachladen 
1 12  rem“  - 

114  : 

115  print"  Chome]  [  cyan]  "  ;  US;  "  !  heme]  " ;  tab 
(18)  ; 

116  print" Crvon lWortschatz  ungenuegend” 

117  gosub337 

118  ifrightS(nfS, l)="q"thenl54 
120  : 

122  dl=int (dm/3) 

124  : 

125  if av=0thenav=l :gotol54 

126  ifls=OthenlS4 

127  : 

128  rem"  -  f ol ge-wartschatz  laden  - 

130  poke53280,2:poke53281,2 

132  print " C hamei " ; IIS; " Chome] CcyaniWorts 
chatz  " ; 

133  prinftr  von]  "  ;nf  S; Crvof  3  wird  gelad 
en" 

136  fS=nfS:gosub713 

137  poke53280,0: poke53281 ,0 

138  : 

154  return 
156  : 

138  : 

300  rem"  Wortliste  kuerzen 

302  rem“  -  - - - 

304  : 

307  sa=peek (47) fpeek (48) *256+7 

308  : 

315  gosub3SO  :rem"  woerter  kuerzon 

316  : 

320  sa=sa+772 

322  gosub350  :rem"  fragen  kuerzen 
324  : 

334  f g=f g-1 : poke2,fg: rem“  feld  kuerzen 

336  : 

337  print" Chome! C whi t 3 nr ; int (fg/og*100 

)  ;  "  C  ersr  3  7.  “ 

338  : 

341  return 


154  zMaS 
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726  : 

72B  inputftl  ,nf*:rem"  f olge-wartschat2 
730  : 

732  closel 

796  : 

797  return 

798  : 

799  : 

800  rem"  datei  aufzeichnen 

802  rem"  - 

803  : 

805  print“ Cclrl" 

807  : 

812  openl5,8, 15, "i “ : closelS 

813  : 

814  openl  ,8,2,  "@0:  ”+af S+"  ,s,w" 

816  : 

818  printttl,fg  :rem"  teldgrcesse 

819  : 

820  forn=0tofg 

822  :print#l, kw* (n )  : print# 1 ,fw$ (n ) 

824  next 
826  : 

828  print#l ,nf*:rem"  naechster  file 
830  : 

832  closel 
B96  : 

897  return 
a93  : 

899  : 

900  rem"  Vorbereitungen 

902  rem"  - 

904  : 

906  poke53280,6: rem"  rahmen  blau 
90B  poke53281 , 14: rem"  grund  hellblau 

909  printchrS (14) ;chr*(B) ;chr*(144) 

910  : 

912  poke792, 193: rem"  restore  und 

913  poke788,52:rem"  stop  verriegeln 

914  : 

915  dimkw* (254) :  rem"  kreuzwoerter 

916  dimf w* (254) : rem“  -fragen  dazu 

986  : 

987  return 

988  : 

989  : 

990  : 

1000  rem"  inputform  routine 

1001  rem"  - 

1002  : 

1003  xt=chrJ ( 13) : y*=chr* (20) 

1004  zt=chr* (34) : pake 198 , 0 

1005  : 

1006  print"  t*: print " Ccrsd*  2  Kcrsu) 

?  ";f*;" 

1007  x=l:iff*<>"  "thenx=len  (f  *)  +1 


1008  : 

1009  ft="":forn=xtol+1 

1010  :print"Ccrsrl";f*; 

1011  : wai t 198, 1 : getf S: poke 198,0 

1012  : iff *=x*thenl025 

1013  : if f *=y*andn/lthenn=n-l : gotolOlO 

1014  : ifn>lthenl01 1 

1015  :i-fm=0thenl021 

1016  :  if f *="  ,  "orf *=z*thenl01 1 

1017  :  if f *>="  "andf *<="9"thenl022 

1018  : if f *>="A"andf *<="Z"thenl022 

1021  :  if-f  *<"a"orf  *>"z  "thenlOl  1 

1022  next 

1023  : 

1025  printchr* (20) ; : poke21 1,1 

1026  poke631 , 13: pokel98, 1 : inputf 5 

1030  i-ff *=x*thenprint"  [crsu]  Ccrsl*  4  1"; 
: gotol009 
1036  : 

1097  return 

1098  : 

1099  : 

2000  rem"  datei  auf listen 

2002  rem"  - 

2004  : 

2010  fornr=0tofg 

2012  : print" Ccrsdl  — >Crvonl " ; kw* (nr) ; " Cr 
vof  1 " 

2014  : print"  ";fw*(nr) 

2016  : f orw=0to60: next 

2017  : wai t 198 , 1 : getf *: print “ Ccrsu*  2  1 
Ccrsd*  2  1" 

2018  :iff*="q"then2029 

2019  : i f f *<>chr* ( 13) then2024 

2021  : print“ Cclrl “: gosub650 

2022  : print" Cclrl wait203, 64 
2024  : ifpeek (210) =7thenpr int" Cclrl" 

2026  next 

2028  : 

2029  t*=" Crvonl Fol ge- Wortschatz " 

2030  print"  "  ;  t*;  " : " : pri nt "  ->";nf* 

2032  wai t203 , 64 : poke 198 ,0 : wai t203 , 63 
2034  : 

2036  getf*:  iff$Ochr*  ( 13)  then2097 

2037  f *=right* (nfs, len (nf *) -2) 

2038  t*=t*+"  (q=kei nen ) : " 

2039  print"Cclr 1 " : gosublOOO: ef =1 

2040  nf*="+"+chr*(20)+f* 

2096  : 

2097  return 

2098  : 

2099  : 

3000  rem"  directory  listen 

3002  rem”  - 

3003  : 


3004  print" Cclrl“ 

3005  print"  Mit  ( r von ] RETURN ( rvof 1  auswa 
eh len" 

3006  print"  Mit  C rvonl LEERTASTE C rvof 3  w 
eiter" 

3007  print 
3003  : 

3009  open 15, 8, 15, "io" : open2,8,2, 

3010  : 

3012  't=18:  s=l  :**=■"’ 

3014  : 

3016  f orw=0to99 
30 1B  : 

3020  :print#15,"b-r";2;0;t;s 
3022  : print#15 , "b-p" ; 2; 0 
3024  : 

3026  : get#2, x*: t=asc (x*+chr* (0) ) 

3028  :get#2,x*:s=asc(x*+chr*(0> ) 

3030  : 

3032  :forx=0to7 

3034  :  print#15,"b-p";2;x*32+5 
3036  :  get#2,x* 

3038  :  ifx*<  >"-+"thenneKtx :  goto3060 
3040  :  get#2,x* 

3042  :  fory=ltal4 

3044  :  get#2,x*:f*=f*+x* 

3046  :  ifx*=chr* ( 160) theny=15 
3048  :  nexty 

3050  :  print"  ->  Crvon] " ; f S; “Crvof 1 “ 

3051  :  if m=0then3056 

3053  :  wait203,64:wait203,63:getx* 

3054  :  ifx*=chr*(13)then3064 

3055  :  print" Ccrsul  " 

3056  :  f*=" " 

3057  : nextx 
3053  : 

3060  : if t=0thenw=99 

3061  nextw 

3062  : 

3064  cl ose2: closel5 

3065  ifm=0thenwait203,63 

3066  : 

3068  return 

3070 

3071 

3072 

9000  rem" 


9002  rem" !  ende 
9004  rem"  1 - 


lexikon-editor 


ready. 

Bild  2.  Editor.  Mit  diesem  Programm  können  Sie  Ihre 
eigenen  Wortschatzdateien  aufbauen.  Sie  werden  auf 
Diskette  gespeichert. 


349 

350 
354 
356 
358 
360 


rem"  wortvektoren  vertauschen 
x=sa+f g*3: y=sa+w*3 
pokey,peek (x ) 

pokey+1 ,peek (x+1 ) 
pokey+2,peek (x+2) 


:97  return 


399 

450 

452 

454 

456 

458 

460 

461 

462 

463 

464 
466 
472 
497 
49B 

499 

500 
502 

504 

505 

506 
508 
510 
512 
514 
594 
596 

598 

599 

600 
602 
604 


rem"  autoladen  ein/aus 
rem" - - - 


if ls=0thenls=l : goto461 
if ls=lthenls=0 

poke21 4 , 13: poke21 1,30: sys5E732 
print"!:  red  1"; 

i f 1 s=l thenprint " C r von TEinL rvof 1  ’ 
if 1 s=0thenprint" Aus" ; 


rem"  progr amm— ende 

rem" - - - 

print" Cclrl S" ; ehr* (9) : 
poke532S0, 14: rem"  rahmen  hellblau 
pokeS3281 , 06: rem"  grund  blau 

poka792,71 : rem"  restore  und 
poke?8B,49: rem"  stop  moeglich 


rem"  bild  aufbauer 

rem" - 


606  poi:e53265,ll  :rem"  bild  aus 

607  : 

608  rem" - kreuzwortf eld - - - 

609  print"Cclrl Ccrsd*  3  3";chr*(14>  ;chr* 
(8!  ; 

610  print"  Ccyan!  . - -  - -  -i 

612  f orn=lto20 

614  print"  tcyanl  |[rvon)a( 

Crvof ICcyanl 1" 

616  next 

618  print"  Ccyanl  1 - 1 

"  5 

619  : 

620  rem"  -  tastenbel egung 

621  b*=" Ccrsl*  23  1" 

622  pri nt"Lhomel Ccrsd*  3  ICred  3"; 

623  a*="Woerter  einlasen" 

624  f=l:gosub639 

625  a*="Raetsel  drucken  " 

626  f  =4 : gosub639 

627  a*="Autolader  Aus  " 

628  f  =6 : gasub 639 

629  a*="von  Hand  eingeben" 

630  f  =7 : gosub639 

63!  printb*; " Ccrsdl Crvonlf  2Crvof 1  Cer sd 1 
ersr*  2  ILoeschen" 

632  printbi;"(crfidKrwon)f  SCrvof  3  Ccrsdl 

ersr*  2  lAbbrechen"; 

633  : 

634  poke53265 , 27 : rem"  bild  an 

635  : 

636  return 

637  : 

639  printb*;  "Crvonlf  "  ; f  ;  "Crvof  3 - 1 

640  rem  printb*;"! 

641  printb*; ”  I  " ; 1 ef t* ( a* ,9) ; " 

642  printb*; "  1 " ;right*(a* ,9) ;"  !" 

643  printbä;  "  - - 1 

645  : 

646  return 
648  : 


649 

650 

651 

652 

653 

654 

655 

656 

657 
653 

659 

660 
661 
662 

663 

664 

665 

666 
667 
669 
680 
631 
6S2 

683 

684 
635 

698 

699 

700 

701 

702 

703 

704 

705 

706 

707 


rem"  kreuzwort  v.  hand  eingeben 
rem" - 

t*="Kreuzwort  (Abbr=q)" 
poke53290,2:pofce53281 ,2 
print'Thomel“; 11*; 11* 

1=20: m=0: gosubl000:m*=f * 
i f  m*="q "andnr >1 then685 
l=len (m*) : if l<2then656 

t*=m*:gosub2000  :rem"  pos.  eingeben 

poke26, len (m£) : m*=m*: rem"  wort 
wai t203, 64: u=usr (0)  :rem"  aintracen 
i f u<  >3then685 

t*="Fragestel lung "  :rem"  frage 
1=36: m=l : gosublOOO  :rem"  eingeben 

x*=str* (peek ( 140) =0!  :rem"  frage 
f  s*  (r.r)  =x*+f  *:  nr=nr-*-l  :rem"  marken 
av=0:dl=dm 

goto.SSO 

Bild  3.  Das  Listing 


retur 


rem"  kre 
rem“ 


zum  Kreuzworträtsel 


üwoerter  eir.lesen 


poke532S0 , 2 : poke5328 1 , 2 
print'Thomsl " : 11*; 11*; 
t*="Wo.-tschatz  (Abbr=q)  " 

1=14: m=l: gosublOOO 

if f *="q" thenprint " : homel “ ; 1 1*: goto7Z 


708  iff *="*"then710 

709  f*=" i"+chrf (2ö)+f*:goto713 

710  gosubSOOO: if f*=""then704 

71 1  : 

712  print"  home  1 1 *; 1 1 f 
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713  openl5,8,l5 

714  openl ,8,2, "O: "+f*+" ,s,r" 

715  input#15,en ,en$ 

716  ifen< >0then728 

717  : 

718  inputttl,fg  :rem"  feldgroesse  gleich 

719  poke2,fg  :rem"  anzahl  woerter 

720  forn=0tafg  :rem"lese  woerter /fragen 

721  : i nputtt 1 , kw* ( n  > ,  f  w* (n) 

722  ne» t 
72 7  : 

724  inputtt  1  ,nf  *:  rem"  naechster  file 

725  inputtlü.en.eni 

726  av=0: dl =dm: bs=l : og=f g 

727  : 

728  print” ChomeJ “ ; lef t*(ll*, 90-1 en (ent) ) 

729  print"trvon]";en* 

730  : 

731  closel:closel5 

732  : 

733  return 

734  : 

735  : 

740  rem"  raetsel  drucken 

741  rem" 

742  : 

743  poke53280,2: poke53281 ,2 

744  print"'..  homel“ ;  1 1*;  1 1* 

745  print“!  homc  ■  t  cyanllrvon  .'Raetsel  wird 

ausgedruckt:  r vof  3 " 

746  : 

747  gasub761 : rem"  wartfeld  ausdrucken 

748  gosub824:rem"  fragen  ausdrucken 

749  gosub900:rem''  loesung  ausdrucken 
730  : 

751  return 

752  : 

757  : 

■'S«  rem"  init  epson  rx-SO  drucker 

755  openl  ,4:printttl  ,  ehr*  (27) ; ; 

756  printSl , ehr $(27) ; "3" ; ehr* (24) ; 

757  rem  pr i nt#l , ehr* (27 ) ; " 1 " ; ehr* ( 1 r ) ; 
75S  printSl :  cl osel : return 

759  : 

760  rem“  Wortfeld  ausdrucken 

761  gosub755i openl , 4  T 10: emd 1  sprintsprin 
t“  rvon  l  .  " ; 

762  forn=0tol9:print”  :next 

763  print"  .  Crvof 3 " 

764  : 

765  f orze=0tol9 

766  :  d=ze*20:  ad=s  1+d :  as=s2-*-d :  aw=s3+d 

767  :ab=s4+ze»40 

768  : 

772  : print" 

773  :farsp=0tol9 

774  :  c=peek (as+sp) 

775  :  i f c=0thenpr int"  ";:goto777 

776  :  printmi  d*  (str*  (c)  +“  “  , 2 , 3)  ; 

777  :neatsp 
779  :gosub820 
7 G0  :forn=lto3 

781  :  pr i nt "I rvonl  itrvofl" ; 

782  :  forsp=0tol9 

783  1  a=166:b=a: c=a 

734  :  i f  peak  (ab-t-sp )  =160then790 
785  :  b=32: c=b: if sp=19then787 

736  :  if (peek (ad+sp) and  1 ) thenc=167 

787  :  a=163: if sp=Othena=32 

788  :  i f (n=l ) andpeek (as+sp) thena=32 
739  :  if <n=3) andpeek (aw*sp) thena=32 
79C  :  printchr* (a) ;chr* (b ) ; ehr* (c>  ; 

791  :  nextsp 

792  :  pri nt "  rvonl  I  Crvof  ifn<3thenpri 
nt 

793  : nextn 

794  : 

795  : gcsubS20: print" 

796  : f  orsp=0to 1 9 

797  :  c=peek (aw+sp) 

798  :  i f c=0thenprint“  ";:goto800 

799  :  printmi d* (str* (c) +"  ",2,3); 

800  : next 

801  : 

802  :  if ze=19then810 

803  :gosub820:print”  "s 

804  :forsp=Otol9 

805  :  p=ad+sp : c= <peek (p) andl6) 

806  :  i  f  ethenpr  int",_ — _";:goto808 

807  !  print" 

800  : nextsp 

809  : 

810  printsnextze 

811  : 

812  pri nt"  1  rvonl  l"; 

81,3  :  f  orn=0tdl9:  print” - "  ;  :  next 

814  pri  nt"-1  Ir  vof  1";  : pri nt# 1 :  closel 

815  : 

816  return 

817  : 

818  : 

820  printchr* ( 141) ;: return 

821  rem  printchrt (141) j lof tt(ll* ,lr) ; :r 
eturn  : rem  fuer  rxBO 

822  : 


823  rem"  fragen  ausdrucken 

B24  printchri (14) : openl ,4 

825  printSl ,chr* (27) ; "0"; 

826  pri nt# 1  ,chri  (27)  ;chr*  ( 15)  ; 

827  pri nt* 1 , ehr* (27 ) ; "1 " ; ehr* ( lr*l . 7) ; 

828  : 

829  emdl : pri nt ehr f ( 14) ; "Senkrecht: " 

830  sw=0:gosub83S: print 

831  : 

832  printchr*  (14)  ;  "Waagerecht:  " 

S33  sw=—  1 :  gosuhR3R:  pri  nt#  1  :  rl  osel 

834  : 

835  return 
336  : 

837  : 

S3B  mz=O:zl=0:f=0:na=l 
839  forn=ltoni — 1 

540  : if val (f sf (n) ) =swthengosub847 

541  nextn 

842  m=0: mr=0: bz=0: gosubSSl : print 

843  : 

844  return 
345  : 

846  : 

847  nl=len (strJ(n) ) +2 

848  l=zl+nl+len (f s* (n) ) 

849  if Kczthenzl=l : gotoBbl 

850  : 

851  pa=l 

852  f orp=3tolen (f s* (n) ) -2 

853  :if«id*(fs*(n> ,p,i)<>"  ”then855 

854  : l=zl*nl+p-2: if l<czthenpa=p 

855  nextp 

856  : 

357  i fpa=lthenmz=mz-l : l=zl 

858  ifpa>lthenl=zl+nl+pa-2 

859  oosub866:mz=0 

860  : 

361  mz  =mz  + 1 

a62  : 

863  return 

864  : 

865  : 

366  bz=int  (  (cz-1 ) /mz ) :mr =cz- (l+bz*mz) 

867  m=- (mr>0) : gosubSSl 
S68  : 

869  na=n+ 1:1=1  en (fsKn)  )  : if pa>lthen873 

870  w=n:print"; ": gosub892:z  1  =nl +1 +3 

871  pr intmid* (f S* (n ) ,3, 1 > ; : goto878 

873  pr 

374  w=n:gosub892:zl=l-pa+2 

875  pr i ntmi d* Cf st  in )  ,3 , pa-2> 

876  pr i ntright* (f sf (n) , 1 -pa) ; 

877  : 

878  return 
979  : 

830  : 

331  forp=naton-l 

882  : if val (f st (p) ><>swthen8B7 

883  :  if  f  thenpr  int"  :  " ;  lef  t*(ll*,bz+m>  5 

884  : if f thenmr=mr+(mr >0) : m=- (mr >0) 

8B5  : f =1 : w=p: gocub892 

886  !Printrightt(fs*(p) ,lsn (fs*(p) )-2) ; 

887  nextp 
883  : 

889  return 

890  : 

891  : 

892  nl=len (str* (w) ) -1 : print" ("; 

893  printright * (str* (w) ,nl ) ; " ) 

894  return 

895  : 

899  rem"  —  loesung  ausdrucken  - 

900  gosub755: printchr* (  14)  :  openl  ,4,  10:  cm 
dl 

901  : 

902  print: pri nt: pri nt: pri nt "Loesung: " 

903  print"  1 - - 1" 

904  f orn==4tos4+76Ostep40 

905  :print"  : forp=nton+19 

906  :printchr*(peek(p) ) ; 

907  :nextp:print" I” 

908  nextn 

909  print"' — — - 1 " 

910  pr intai : cl osel 

911  : 

912  return 

913  : 

914  : 

915  rem"  Vorbereitungen 

916  rara "  - 

917  : 

919  poke53280,2:rem"  rahmen  grau 

920  poke53281 ,2:rem"  hintergrund  grau 

921  : 

922  rem  poke792, 193: rem"  restore  und 

923  rem  poke7B8,52  :rem"  stop  verriegeln 

924  : 

925  dimkw*(254) :rem"  kreuzwoerter 

926  dimfw* (254) :rem"  fragen  dazu 

927  dimf s*(255> :rem”  f  ragestel  lung 

928  fg=l:cg=fg  :rem"  feldgroesse 

929  poke2,fg  :rem"  uebergeben 

930  : 

931  poke785,0  :rem"  usr — vektor 


932  poke786,192  :rem"  setzen 

933  : 

934  ls=0:rem"  Autolader  Aus 

935  bs=l:rem"  Blausperre  Ein 

936  : 

937  sys50016: rem"  matrix  loeschen 

938  : 

940  rem  sys  51859  :rem"  init.  drucktreib 
er 

942  : 

944  rem"  konstanten: 

945  : 

946  lr=l0  :rom"  linker  rand  druckausg. 

948  cz=int (130-lr*l . 7)  :rem“  zeillaenge 

949  : 

950  forn=lto40  :rem”  leerstring  fuer 

952  :11*=11*+"  *  :rem"  formatierte 

954  next  :rem"  ausgabe 

953  : 

956  sl=50176  :rem"  adressen  der 
958  s2=50576  :rem"  wortfeld- 
960  s3=50976  :rem"  Speicher 

962  s4= 1 186 

963  : 

964  dm=10000:rem"  max .  anz.  laeufe 

965  : 

966  return 

967  : 

969  : 

970  rem"  routinen  laden 

97t  rem" - - - - - 

972  : 

975  f  orn=0to3:  sl=sl+peek  (49152*-n>  :next 

976  forn=0to3:  s2=s2+peak  (51857«-n)  :next 

977  : 

978  i f sl O 483t hen 1 oad” such . ob j " ,S , 1 

979  rem  i f s2<>494thenl oad"druck. ob j " ,8, 1 

980  : 

987  return 
997  : 

993  : 

999  : 

1000  rem"  inputform  routine 

1001  rem"  -  - 

1002  : 

1003  x*=chr*(13) :y*=chr*(20) 

1004  z*=chr* (34) 

1005  : 

1006  pr i nt ” l hame H cyan 1 (r von  1 " i t*; "?trvo 
fl  " ; : pokel 9S,0 

1007  : 

1008  f*="" 

1009  f orn=ltol+l 

1010  :print"  icrsr ] " ; f S; 

1011  : wai t 198, 1 : getf *: pake 198,0 

1012  : i f  f  *=x  * then 1 024 

1013  : if f S=y*andn>lthenn=n-1 : goto  10 10 

1014  : ifn>lthenl01 1 

1015  : i f  m=0t  hen 1021 

1016  : if f *=" . "arf *=z*thenl01 1 

1017  :iff*;-="  "andf *<="9"then 1022 

1018  : if f *>="A"andf 4 <="Z”then 1022 

1021  : i f f*<"a"orf*>"z"thenlQl 1 

1022  next 

1023  : 

1024  print":  ersrj  f  ersr  3  Zhomel  I  rvon  j  "  ;  t* 
5 

1026  poke631 , 13:pokel9S, 1: inputf * 

1029  i  f  f  *-=x*then  1005 

1030  : 

1097  return 

1098  : 

1099  : 

2000  rem"  wort  positionieren 

2001  rem" -  -  - 

2002  : 

2004  prinfthome  If  er  sd  .1  WC  rvonl  (S)  enkre 
cht  oder"; 

2005  print"  (W)  aagerecht  7  " 

2006  wai t203,63: getf* 

2007  i  f  f  *<  >"  5 "  andf  *<  >••  w "  then2006 

2008  : 

2009  print"!  hame:!  f  ersd  3  Cr  vof  ]  "  ; 1 1*; 

2010  prinfChameKcrsdiCrvon-IBitte  Posit 
ion  anfahren!" 

2011  print"Chomel : ersd*  3  Kcrsl*  3  llrv 
of  3": 

2012  : 

2013  f  a*=l  186:  p=f  a:  f  =peek  (f  a) 

2014  x-0:y=O:s=(f *="s"> : poke 1 40 , aba ( s ) 
2013  mx=20+l * (6=0) + <s=-l ) 

2016  my'-20+l*(S=-l>f(s=0) 

2017  1 

2018  forn=Oto9999 

2019  pokep, f :p=f a+x»y*40 

2020  f -peek ( p) : pokep ,94: wai t 198, 1 

2021  getf*: i f f *=chr* (13) then2028 

2022  i f f *=" C ersd 1 "theny=y-l* (y<my ) : next 

2023  i f  f *=" C  er sl 3 "thenx-x-l* (x<mx ) : next 

2024  i  f  f  *•="(  er su .1  "theny=y+l*  (y>0>  :  next 

2025  if  f  *=“£  ersr  3"thenx=x  + 1*  (x  >0)  :  next 

2026  next 

2027  : 

2028  pokep, f 

2029  pr  int"  I  homeV  ;  1 1  * ;  1 1  *; 

2030  : 
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2031  poke211,x  :rem"  Cursor — Position 

2032  poke2I4,y  :rem"  setzen 

2033  : 

2097  return 

2098  : 

2099  : 

3000  rem"  directory  listen 

3001  rem" - - - 

3003  : 

3004  print“ Ehomel " ; lli; " Chome] [ cyanl " ; 
3003  prinf'Mit  Crvon IRETUFNi rvof 1  auswae 
hlen  " 

3006  print“ Ecrsu’Mi t  ! rvonlLEERTASTEtrvo 
f  3  -  wei  ter  " 

3007  : 

3008  openl5,8, 15 ,  "io" : open2,8,2 , 

3010  : 

3012  t=18=s=l= f$="" 

3014  : 

3016  forw=0ta99 
3018  : 

3020  s pr int#15 , "b— r ” ; 2; O; t ; s 
3022  : print# 15 , "b— p " :  2;  O 
3024  : 

3026  :get#2,x*:t=ascCx*+chr* (0) ) 

3028  :get#2,x*:s=asc(x*+chr*10)  ) 

3030  : 

3032  :  f orx=0tü7 

3034  :  print#15 ,  “b-p" ;  2;  x*32f5:  get#2,f * 

3038  :  i-ff*<>“4"thennexti::goto3060 

3042  :  f ory=ltol5 

3044  :  get#2,x*:f  S=f.£+xä 

3046  ;  i-fxS=chr*(ltO)theny=l5 

3048  :  nexty 

3050  :  pr int"ChomeJ * ; tab <24! ; " C rvonl " ; 

3052  :  printright*  Cf£  ,len  <f  ■$>— 2)  ;  "Crvof  1 

3053  :  wai t203 , 64: wai t203 ,63: getx4 

3054  :  ifxS=chr*C13!then3064 

3055  :  print "  1  haital  " ;  tab  (24)  ;  1  et ti  ( 1  IS ,  1 
4) 

3056  :  f*=" " 

3057  :nextx 

3058  : 

3060  :  if t=0thenw=99 

3061  nextw 

3062  : 

3064  close2:closel5 

3065  print"rhomel":HS;ll* 

3066  : 

306E  return 

3070  : 

3071  : 

4000  rem"  si charhei tsabf rage 

4001  rem"  - 

4002  : 

4003  poke53280,2: poke53281 ,2 

4004  pri nt " Chome 3 " ; 1 1J 

4006  print"!  home]  f  cyan  ]  C  rvonl  "  :  -f  S;  "  :  C  rvn 
f  3  Sicher  !J/N)  ?" 

4008  wait203,64:wait203,63:get-fi 
4010  i  f  f  $<  >"  j  "thenpr  i  nt"  Chome! "  ;  llf- 
4012  : 

4014  return 
4016  : 

4018  : 

4020  : 

7000  rem" 

9002  rem" I  ende  raetselgensrator  I 
9004  rem" 

ready. 


Bild  3.  Das  Listing  zum  Kreuzworträtsel.  Beachten  Sie 

die  Hinweise  zum  Eintippen.  Speichern  Sie  dieses  Pro¬ 
gramm  unter  dem  Namen  »RAETSEL«  auf  Diskette.  Vor 
dem  Starten  muß  zuerst  Listing  in  Bild  4  eingegeben 
und  gespeichert  werden. 


10  rem"  basic-lader  fuer  kreuz wort-suchr 
out ine 

11  rem"  wichtig:  vor  dem  l.lauf  abspeich 
ern  ! 

12  : 

13  ad=12*4096  :rem"  =  ScOOO 

14  : 

15  for  n=0  to  906:  read  by:  poke  ad+n,by 
:  5U=su+by:  next 

16  i-f  su< >105962  then  print"  checksum  - 
error"  : stop 

17  : 

20  rem"  such-routine  abspeichern 
22  : 

24  poke  43,  O  :rem"  vektor  auf  beginn 
26  poke  44,192  :rem"  der  routine 
28  : 

30  pake  45,138  :rem"  vektor  auf  ende 
32  poke  46,195  rem"  der  routine 

34  : 

36  save"such. ob j " ,8 
38  : 

40  sys  64738 
42  : 

44  : 

45  datal20, 32, 139, 192,240,9,32, 188, 192,3 
2,240,192,76,21,192,32,15,193,32 

46  datalOO, 193,176,19,169,0,133,139,141, 
0,220,173,1,220,201 ,255,240,234 

47  datal60, 1,76, 135, 192, 165, 140, 240, 6, 32 
,21,194,76,55,192,32,95,194,176 

48  data45 ,230,25, 165,2,197,25, 144 , 17 , 162 
,1,32,56,193,32,71,193,165,98,197 

49  data26 , 1 44 , 234 , 76 , 42 , 192,165,20,208,1 
1 , 165,21,208,5, 160,2,76,135,192 

50  datal98,21 , 198,20,76,23,192,165, 139,2 
08,12,165,141 ,240,228, 165, 142,240 

51  data4, 165, 143,240,220,238,248,7,32, 14 
6,194,160,3,173,248,7,201,255,208 

52  data2, 160,4,88,76,162,179,32,247,183, 
165,47,166,48, 133,78, 134,79, 160 

53  dataO, 132, 139, 169, 7, 24, 101, 78, 144, 2, 2 
30,79,133,78,169, 162,162,4,133,80 

54  datal34, 81 ,162,216, 133,82,134,83,165, 
26,201,0,240,2, 133, 139,96, 165,211 

55  datal33, 28, 165,214,133,29,24, 105,4,13 
3,214,32,108,229,165,209,133,87 

56  data  165, 210, 133, 88 ,230, 87, 230, 87, 32, 3 
6,234,165,243,133,91,165,244,133 

57  data92 ,230 , 91 , 230 , 91 , 165,5!  , _ .  ,52,13 

3, 101,134,102,96,164,28,177,91,41 

58  datal5,201 ,14,240,17,170, 165,140,208, 
7,138,201,1,208,9,240,5,138,201 

59  data7, 208, 2, 56, 96, 24, 96, 169,0, 133,140 
,165,2,32,88,193,133,25,165,78,133 

60  data99, 165,79, 133, 100, 166,25,240,3,32 
,56,193,32,71 , 193, 169,255,32,88 

61  datal93,201 , 128,144,2,133, 140,96,169, 

3.24.101.99.144.2.230.100.133.99 

62  data202, 208 , 242 , 96 , 160 ,0,177,99,133,2 

6.200.177.99.133.101.700.177.99 

63  datal33, 102,96,133,97,173,27,212,197, 

97.240.2. 176.247.96. 162. 19.134.31 

64  data 134, 32, 232, 138,56,229,26,166,140, 

240.6.133.32.169.7.208.4.133.31 


65  datal69, 1 , 133,33, 165,31,32,88,193, 133 
,28,165,32,32,88,193,133,29,165 

66  dataS2, 166,83, 133,91 ,134,92,164,29,24 
0,14,169,40,24,101,91, 144,2,230 

67  dsta92 , 133,91,136,208,242,164,28,177, 
91,41, 15,201 , 14,240,26,197,33,240 

50  data22, 198,28, 16,238, 165,31 , 133,28,16 
5,29,197,32,240,6,230,29,160, 1 ,208 
6n  data208, 24, 96, 165,80, 166,81 ,133,87,13 
4,83,164,29,240,14,169,40,24, 101 
70  data87 ,144,2, 230 ,88,1 3-3- ,  87 , 136 , 208 , 24 

2 . 1 69 . 20 . 166 . 140 . 240 .6.56. 229 . 29 

73  data7ö,244, 173.56,229,28, 133,98,56,96 
,169,0,133,141, 133,143,133,27, 165 

72  data87, 166*88, 133, 89, 134, 90, 165, 91, 16 

6.92.133.93.134.94. 165.28.133.30 

73  data96,32,248, 193, 164,30,177,89,201 , 1 
60,240,3,164,27,209,101,203,53, 164 

74  data-30 ,177 , 93 ,41, 15,201,14,208,4,133, 
143,240,6,201,7,208,35,133,141,230 

75  data27 ,165,27,197, 26,240 , 27 , 169 ,40,24 
,101,39,144,2,230,90,133,89,169 

76  data40, 24, 101 ,93,144,2,230,94,133,93, 
24, 144,189,24,96,56,96,32,248,193 

77  data 164, 30, 177 ,89 ,201 ,160 ,240 ,8, 164,2 
7,209,101,208,32, 164,30,177,93,41 

78  data  15, 201 ,14,208,4,133,143,240,6,201 
, 1 , 203 ,14,133,141, 230 , 30 , 230 , 27 

79  data!65, 27, 197,26,208,212,56,96,24,96 
,32,248, 193, 164 ,27, 177,101, 164 ,30 

SO  data  145, 89, 169 ,5, 133,33, 177,93,41,15, 
201 ,14,208, 12,169,7, 133,33, 165,140 
31  data240, 4, 169, 1,133,33, 165,33, 145, 93, 
230,27,165,27,197,26,240,34,163 

82  datal40, 240, 25, 169,40,24, 101 ,89, 144,2 
,230,90, 133,89,169,40,24,101,93 

83  data  144, 2, 230, 94, 133,93,76, 149, 194,23 
0,30,76,149,194, 169,0, 162, 196,133 

84  datäS7, 134, 88, 164,29,240, 14,169,20,24 
, 101 ,87, 144,2,230,88,133,87,136 

85  data208,242, 133,89, 165,38, 133.90,164. 


23,  i7_r.  89, 166, 140,240,4,9,64,208 

86  aata2, 9, 4, 145, 89, 224, 0,240, 15, 24, 165, 
89, 105, 'l  44, 133,89, 165,90, 105, 1 , 133 

87  data90, 203, 13,24, 165,89, 105,32, 133,89 
,165,90,105,3,133,90,173,248,7,145 

58  dataS9 , 224 , 0 , 240 ,23,166,26,24, 202,240 
,13,169,20,101 ,87,144,3,230,88,24 

89  dätal33, 87, 144,240, 169, 16,208,8, 152,2 
4,101,26,168,136,169,1,17,87,145 

90  oataS7,96, 169,0,162,196,133,89,134,90 
,  1-60,0, 140,243,7,152,145,89,230 

91  dataB9, 208, 250, 230, 90, 165, 90, 201, 201, 
208,241 , 169,255,141,14,212, 141,15 

92  data212, 169,129,141,18,212,96,0 

1O0  rem - 

110  rem  data  tester 

120  rem - 

130  input"blockgroe55e"; bg 
140  gosub240 

145  open  1 , 4: cmdl :r em  nur  bei  drucker 
150  print"'äanzahl  blocksumme  gesamtsumme 
tE::t  " 

160  gosub240 

170  restore 

180  readaf : a=val (aS) 

190  if a*="*”thengasub240: printb ,sl ,s:end 

200  an=an+l:s=s+a:b=b+l:sl=sl+a 

210  if  aSOmid*  Cstrt  (a)  ,2!  thenpr  i  nt  "ii"b  ,  , 

,a#"S" 

215  if a>256thenprint"v"b, , ,af "K" 

220  if an=bg thenpr intb , sl ,s: an=0: sl=0 
230  gotolBO 

240  fori = 1 tolO : pr int"  next: return 

250  pr int#l : cl osel : rem  nur  bei  drucker 
340  data* 

ready. 


Bild  4.  Dieses  Programm  erzeugt  ein  Maschinenpro¬ 
gramm  und  speichert  es  unter  dem  Namen 
»SUCH.OBJ«  auf  Diskette.  Der  Teil  ab  Zeile  100  ist 
nicht  notwendig.  Mit  diesem  Teil  können  Sie  mit  RUN 
100  die  DATAS  überprüfen.  Er  erzeugte  den  Ausdruck, 
wie  unten  zu  sehen  ist. 


prue-f  summenl  i  ste 
blockgroesse  30 

Zeile 

anzahl 

summe 

46 

30 

3459 

48 

60 

7430 

49 

90 

10532 

51 

120 

14928 

52 

150 

18545 

54 

180 

21921 

56 

210 

25654 

57 

240 

29719 

59 

270 

32931 

60 

300 

36070 

62 

330 

39840 

63 

360 

43658 

65 

390 

46780 

67 

420 

49962 

535ö7 

70 

480 

56765 

71 

510 

60554 

73 

540 

64019 

74 

570 

67584 

76 

600 

70757 

78 

630 

74189 

79 

660 

77740 

81 

690 

80991 

82 

720 

84221 

84 

750 

87844 

85 

780 

91244 

87 

810 

94181 

88 

840 

97365 

90 

870 

100670 

92 

900 

105197 

gesamt 

907 

105962 
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Fortsetzung  von  Seite  151 

chencheck  statt,  der  es  un¬ 
möglich  machen  soll,  uner¬ 
laubte  Zeichen  im  Rätselfeld 
unterzubringen.  Danach 
müssen  Sie  sich  zwischen 
einer  waagerechten  oder 
senkrechten  Eintragung  ent¬ 
scheiden,  und  ein  Cursor 
taucht  im  Wortfeld  auf.  Fah¬ 
ren  Sie  wie  gewohnt  mit  den 
Cursortasten  die  gewünsch¬ 
te  Wortposition  an  und 
drücken  die  RETURN-Taste. 
Da  es  das  erste  Wort  ist  und 
genügend  Platz  im  Wortfeld 
herrscht,  wird  Ihr  Wort  ohne 
Protest  sofort  eingetragen. 
Jetzt  noch  schnell  die  zuge¬ 
hörige  Fragestellung  einge¬ 
tippt,  und  das  erste  Wort  ist 
korrekt  eingetragen. 

Sie  können  dieses  Spiel 
beliebig  fortsetzen  und  theo¬ 
retisch  das  ganze  Rätsel  auf 
diese  Weise  per  Hand  erstel¬ 
len.  Alle  Eingaben  von  Hand 
sind  frei  von  dem  Zwang,  ein 
Wort  mit  einem  anderen 
kreuzen  zu  müssen.  Sie  kön¬ 
nen  Ihre  Wörter  also  belie¬ 
big  positionieren,  sollte  ein 
Wort  allerdings  nicht  pas¬ 
sen,  wird  es  zurückgewiesen 
und  der  Handeingabe-Mo¬ 
dus  abgebrochen. 

Regulär  verlassen  Sie  die 
Handeingabe,  indem  Sie  an¬ 
stelle  eines  neuen  Wortes 
ein  »q«  eintippen.  Später  kön¬ 
nen  Sie  die  automatische  Rät¬ 
selerzeugung  jederzeit  un¬ 
terbrechen  und  mit  F7  wie¬ 
der  in  den  Handmodus  zu¬ 
rückkehren. 

Im  Wortfeld  stehen  nun  ein 
oder  mehrere  Wörter,  die 
als  Startpunkte  für  andere 
Wörter  dienen.  Senkrechte 
Eintragungen  sind  weiß  und 
waagerechte  gelb  gefärbt. 

Bleibt  nur  die  Angabe, 
welcher  auf  Diskette  gespei¬ 
cherte  Wortschatz  als  erstes 
geladen  werden  soll  (Zeile 
37).  Dabei  können  Sie  sich 
mit  »$«  auch  das  Inhaltsver¬ 
zeichnis  der  Diskette  anse- 
hen.  für  den  Fall,  daß  Ihnen 
der  Name  eines  Wortschat¬ 
zes  entfallen  ist. 

Nach  erfolgreichem  La¬ 
den  des  ersten  Wortschat¬ 
zes  beginnt  nun  die  auto¬ 
matische  Rätselerzeugung 
(Hauptschleife  Zeile  40—99). 
Zunächst  überraschend 
schnell  füllt  sich  das  Wort¬ 
feld  mit  zufällig  plazierten 
und  gekreuzten  Wörtern. 
Dieser  Vorgang  wird  von  der 
Maschinenroutine  gesteu- 
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ert.  Auf  die  genaue  Arbeits¬ 
weise  dieses  Programmtei¬ 
les  gehe  ich  noch  gesondert 
ein.  Links  oben  auf  dem  Bild¬ 
schirm  erscheint  die  Anzahl 
der  Wörter,  die  bereits  ein¬ 
getragen  sind  (maximal  255 
sind  möglich)  und  daneben 
die  momentane  prozentuale 
Größe  des  noch  zur  Verfü¬ 
gung  stehenden  Wortschat¬ 
zes  im  Speicher. 

Bei  jeder  Eintragung  wird 
die  Liste  der  Kreuzwörter 
gekürzt  und  das  benutzte 
Wort  aus  der  Liste  gestri¬ 
chen.  Dies  geschieht  durch 
Vertauschen  der  Stringvek¬ 
toren  des  zu  streichenden 
Wortes  und  des  letzten  Wor¬ 
tes  im  Array  (Zeile  300—399). 
Diese  Methode  wurde  ge¬ 
wählt,  um  die  Bildung  von 
neuen  Strings  im  Speicher  zu 
vermeiden  und  der  schreck¬ 
lich  langsamen  Garbage- 
Collection  aus  dem  Wege  zu 
gehen. 

Während  der  Rätselerzeu¬ 
gung  können  Sie  sich  in  Ruhe 
überlegen,  ob  Sie  ein  auto¬ 
matisches  Nachladen  von 
Wortschätzen  gestatten  wol¬ 
len  oder  nicht.  In  der  rechten 


tragung  erlaubt  ist,  wenn  da¬ 
bei  auch  ein  blaues,  unbe¬ 
setztes  Feld  abgedeckt  wird. 
Eine  Maßnahme,  um  das  Rät¬ 
sel  möglichst  dicht  zu 
packen.  Ab  sofort  ist  also 
auch  das  Einpassen  eines 
Wortes  nur  auf  besetzten  Fel¬ 
dern  möglich.  Läßt  sich  auch 
jetzt  kein  Wort  mehr  finden, 
erscheint  endgültig  der  Hin¬ 
weis  auf  mangelnde  Wort¬ 
auswahl.  Wenn  Sie  das  »Au¬ 
toladen«  zugelassen  haben, 
wird  nun  der  Folgewort¬ 
schatz,  falls  vorhanden,  gele¬ 
sen  und  das  Spiel  beginnt 
von  Neuem.  Selbstverständ¬ 
lich  ist  auch  das  Laden  von 
Wortdateien  vor  Ablauf  der 
»Geduld-Schwelle«  mach¬ 
bar.  Dazu  dient  die  Fl-Taste. 
Aber  Vorsicht,  auf  die  Ge¬ 
fahr,  daß  Sie  einen  bereits 
verbrauchten  Wortschatz 
nochmal  laden,  müssen  Sie 
schon  selbst  achten. 

Es  dauert  gar  nicht  so  lan¬ 
ge,  dann  ist  das  Wortfeld  so 
dicht  gepackt,  daß  der  Ma¬ 
schinenroutine  keine  Eintra¬ 
gung  mehr  gelingt.  Jetzt  sind 
Sie  gefordert,  und  mit  der 
F7-Taste  wählen  Sie  die 


Bildhälfte  ist  inzwischen  'die  Hir'ueingabe  an.  Genau  wie 
Belegung  der  Funktionsta-  bei  der  Eintragung  der  er¬ 


sten  zu  sehen,  und  mit  der 
F6-Taste  schalten  Sie  die 
Autolader-Option  ein  oder 
aus.  Erscheint  »Aus«  im 
F6-Tastenfeld,  ist  das  Nach¬ 
laden  gesperrt. 

Die  Maschinenroutine 
sucht  derweil  ständig  nach 
passenden  Stellen  im  Wort¬ 
feld.  Dieser  Vorgang  kann  im 
Prinzip  endlos  sein,  da  ir¬ 
gendwann  natürlich  kein  ge¬ 
eignetes  Wort  mehr  zu  fin¬ 
den  ist.  Aus  diesem  Grund 
hat  das  Programm  eine 
»Geduld-Schwelle«,  eine  An¬ 
zahl  von  Suchversuchen,  in¬ 
nerhalb  derer  ein  passen¬ 
des  Wort  gefunden  werden 
muß.  Ist  die  Versuchszahl  oh¬ 
ne  Erfolg  abgelaufen,  geht 
das  Programm  davon  aus, 
daß  der  Wortschatz  nicht 
mehr  ausreicht.  Diese  »Ge¬ 
duld-Schwelle«  können  Sie  in 
Zeile  964  selbst  bestimmen. 

Bevor  allerdings  in  der 
obersten  Bildzeile  die  Mel¬ 
dung  »Wortschatz  ungenü¬ 
gend«  erscheint  (Zeile  64/ 
Unterprogramm  110—158), 
hebt  das  Programm  noch  die 
»Blausperre«  auf  (Zeile  66). 
Dieses  Flag  hat  dem  Maschi¬ 
nenprogramm  bisher  mitge¬ 
teilt,  daß  nur  dann  eine  Ern¬ 


sten  Startwörter  können  Sie 
Ihre  »Lückenfüller«  positio¬ 
nieren  und  die  Fragestel¬ 
lung  dazu  eingeben. 

Zufrieden  mit  Ihrer  Arbeit 
(hoffentlich!)  bleibt  nur  noch 
der  Ausdruck  des  Rätsels. 
Mit  F4  wird  er  gestartet.  Das 
Unterprogramm  für  die 
Druckausgabe  nimmt  im 
Programm  den  weitaus  größ¬ 
ten  Platz  ein  (Zeile  740—914). 
Ich  verwende  einen  Epson 
RX-80-Drucker,  der  mit  Hüfe 
einer  speziellen  Treibersoft¬ 
ware  (Epson  Software-Inter¬ 
face)  auch  CBM-Sonderzei- 
chen  drucken  kann.  Dazu 
muß  eine  unübliche  Geräte¬ 
adresse  (6)  angegeben  wer¬ 
den  (Zeile  761  und  900).  Soll¬ 
ten  Sie  also  einen  CBM-gra- 
fikfähigen  Drucker  am  IEC- 
Bus  betreiben,  tauschen  Sie 
diese  Adresse  gegen  die  ge¬ 
wohnte  »4«  (im  Listing  schon 
geändert). 

Auch  die  Druckerinitiali¬ 
sierung  ist  von  Drucker  zu 
Drucker  verschieden  (Zei¬ 
len  754—758).  Achten  Sie 
darauf,  daß  Ihr  Drucker  hier 
folgende  Einstellung  erhält: 

—  Zeilenabstand  =  0 

—  CBM-Grafikmodus 

—  Startposition  des  Druck¬ 


kopfes  =  lr  (Linker  Rand, 
kann  in  Zeile  946  geändert 
werden). 

Für  den  Ausdruck  der  Fra¬ 
gestellung  wird  der  RX80  im 
Engschriftmodus  versetzt, 
um  Platz  zu  sparen  (Zeile 
824—827).  Auf  diesen  Effekt 
können  Sie  natürlich  verzich¬ 
ten,  müssen  dann  aber  die 
Zeilenlänge  (cz,  in  Zeile  948) 
ändern,  da  der  Ausdruck 
vom  Programm  mit  Randaus¬ 
gleich  versehen  wird  (Zeile 
847  -  889). 

Nun  wie  versprochen  zum 
Maschinenprogramm,  kurz 
genannt  »Such«  (Bild  4  und  5). 
Diese  Routine  liegt  im  Be¬ 
reich  SCOOO/49152,  wo  sie 
gut  gegen  überschreiben 
durch  Basic  geschützt  ist. 
Der  Einsprung  erfolgt  über 
den  USR-Vektor  (definiert  in 
Zeile  931  bis  932),  das  heißt 
es  findet  eine  Parameter¬ 
übergabe  zwischen  Basic 
und  Maschinenroutine  statt. 
Basic  übergibt  in  »dl«  die  An¬ 
zahl  der  Versuche,  die  die 
Routme  durchlaufen  sollen 
(Zeile  44).  Mit  der  Rückkehr 
aus  der  Routine  wird  der  Va¬ 
riablen  »u«  ein  Wert  zwi¬ 
schen  1  und  4  zugewiesen. 
Aus  dem  Wert  von  »u«  kann 
also  auf  die  Ursache  für  den 
Abbruch  der  Routine  ge¬ 
schlossen  werden: 

—  u  =  1;  eine  Taste  ist  betätigt 
worden. 

—  u  =  2;  die  Suche  nach  ei¬ 
nem  passenden  Kreuzwort 
war  vergeblich. 

—  u  =  3;  ein  Wort  wurde  ge¬ 
funden  und  in  das  Wortfeld 
eingetragen. 

—  u  =  4;  die  maximale  An¬ 
zahl  (255)  von  eingetragenen 
Kreuzwörtern  ist  erreicht; 
keine  weitere  Eintragung 
möglich.  Das  Rahmenpro¬ 
gramm  kann  jetzt  entspre¬ 
chend  reagieren  und  zum 
Beispiel  im  Falle  u  =  3  das 
benutzte  Wort  aus  der  Wortli¬ 
ste  streichen.  Im  Falle  einer 
Eintragung  (von  Hand  oder 
automatisch)  wird  das  Wort 
nicht  nur  in  den  Bildspeicher 
eingesetzt,  sondern  es  wer¬ 
den  auch  einige  weitere  In¬ 
formationen  abgelegt: 

a)  Eintragung  im  »Wortbe- 
ginn/ende«-Speicher  (50176 
bis  50575);  hier  wird  ver¬ 
merkt,  ob  ein  Rätselfeld  den 
Start-  oder  Endpunkt  eines 
Kreuzwortes  repräsentiert. 
Der  Speicher  ist,  wie  die  fol¬ 
genden  auch,  in  20  Zeilen  mit 
je  20  Positionen  (Speicher- 
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Wettbewerb 


C  64 


Fortsetzung  von  Seite  L58 

stellen)  aufgeteilt.  Das  linke 
Halbbyte  (4  Bit)  einer  Spei¬ 
cherstelle  trägt  die  Informa¬ 
tionen  über  senkrechte,  das 
rechte  Halbbyte  über  waa¬ 
gerechte  Start/Endpositio- 
nen.  Das  1.  Bit  im  Halbbyte 
wird  für  Endpunkte  gesetzt, 
das  3.  Bit  für  Startpunkte. 
Diese  Informationen  werden 
später  bei  der  Ausgabe  des 
Rätsels  auf  dem  Drucker  be¬ 
nötigt,  um  an  den  richtigen 
Stellen  die  Nummer  der  zu¬ 
gehörigen  Fragestellung 
eintragen  zu  können. 


ne  braucht  dann  nur  den  Paß 
des  Wortes  zu  überprüfen 
und  bei  korrekter  Eintra¬ 
gung  ins  Basic  zurückzukeh¬ 
ren.  Paßt  das  Wort  allerdings 
nicht,  verfällt  die  Routine  in 
den  Automodus.  Das  Ma¬ 
schinenprogramm  durch¬ 
läuft  im  Automodus  eine 
Schleife,  die  zunächst  durch 
Auslesen  des  Rauschgene¬ 
rators  im  Soundchip  ein  Wort 
aus  dem  Wortschatz  per  Zu¬ 
fall  bestimmt.  Dann  erfolgt 
auf  die  gleiche  Weise  die 
Auswahl  eines  Startpunktes 


Hinweise  zum  Eintippen 

In  diesem  Listing  wurden  die  meisten  Steuerzeichen  umgesetzt 
in  Buchstabenkombinationen,  die  in  eckigen  Klammem  stehen. 
Es  bedeuten: 


cir  =  Shift  Clear/Home-Taste 

home  =Home-Taste 

cyan  =  Control  und  4 

whit  =  Control  und  2 

red  =  Control  und  3 

rvon  =  Revers  on 


rvof  —  Revers  off 
crsr  =  Cursor  rechts 
crsl  =  Cursor  links 

(crsl*28  =  28  mal 
Cursor  links) 
crsd  =  Cursor  unten 


In  Zeile  51  bis  56  (Listing  3)  bedeuten  die  Grafikzeichen  (von 
oben  nach  unten)  f7,f4,fl,f6,f8,f2. 

Ein  reverses  »Z«  bedeutet  die  Farbe  Hellblau  =  Commodore- 
Taste  und  7. 


b)  Eintragungen  im  »Senk- 
recht«-Speicher  (50576  bis 
50975);  in  dieser  Speicher¬ 
matrix  werden  die  Ord¬ 
nungsnummern  der  Frage¬ 
stellungen  für  senkrechte 
Rätselwörter  abgelegt.  Bei 
der  Druckausgabe  wird  die¬ 
se  Matrix  abgefragt  (Zeile 
773  bis  777),  um  die  Nummer 
der  Fragestellung  im  ent¬ 
sprechenden  Startfeld  ein¬ 
zusetzen. 

c)  Eintragung  im  »Waage- 
recht«-Speicher  (50976  bis 
51375),  wie  unter  b)  Zeile  796 
bis  800). 

Um  die  Speicherinhalte 
vor  dem  Start  des  Rätselpro¬ 
gramms  zu  löschen,  springt 
man  die  Routine  mit  »sys 
50016«  an  (Zeile  937) 

Nun  zur  Arbeitsweise  der 
Routine  während  der  auto¬ 
matischen  Rätselerzeugung. 
Zunächst  muß  das  Maschi¬ 
nenprogramm  erst  einmal 
wissen,  ob  es  wegen  einer 
Handeintragung  angesprun¬ 
gen  wurde  oder  zur  automa¬ 
tischen  Wortsuche.  Dazu 
liest  die  Routine  die  Spei¬ 
cherstelle  26  aus.  Ist  das  Er¬ 
gebnis  Null,  wird  in  den  Au¬ 
tomodus  verzweigt.  Andern¬ 
falls  wird  in  26  die  Länge  des 
von  Hand  eingetragenen 
Wortes  übergeben  (siehe 
Zeile  662  bis  663).  Die  Routi- 


im  Bildspeicher.  Ist  dieser 
Punkt  nicht  geeignet  für  eine 
Eintragung,  wird  Zeile  für 
Zeile  des  Wortfeldes  nach 
einer  Alternative  gesucht. 
Im  Falle  eines  Treffers  startet 
der  Wort  vergleich.  Das  ge¬ 
wählte  Wort  wird  mit  dem  In¬ 
halt  des  Bildspeichers  auf 
Übereinstimmung  geprüft. 
Paßt  es  nicht,  kommt  das 
nächste  Wort  aus  dem 
Wortschatz-Array  an  die  Rei¬ 
he.  Bei  Erfolg  kehrt  »Such« 
ins  Basic  zurück,  wenn  nicht, 
beginnt  die  Schleife  von 
Neuem. 

Damit  der  Zugriff  auf  das 
Array  klappt,  muß  es  nur  als 
erstes  im  Basic-Programm 
definiert  worden  sein  (Zeile 
925).  »Primitiv«  werden  Sie 
vielleicht  anmerken.  Richtig, 
aber  Computer  sind  nun  mal 
(sehr)  schnelle  Idioten. 

(Gert  Büttgenbach/gk) 
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Dokumentationshilfe 


Insgesamt  1000  Mark  zu  gewinnen. 
Möchte  man  ein  Programm  analysieren 
oder  schreiben,  und  die  Dokumentation 
ist  nicht  oder  nur  mangelhaft  vorhanden, 
ist  eine  automatische  Dokumentations¬ 
hilfe  ein  interessantes  Werkzeug. 


Die  Aufgabe,  die  wir  dies¬ 
mal  stellen,  ist  nicht  nur  ei¬ 
ne  Herausforderung  an  Pro¬ 
grammierer,  sondern  soll  zu¬ 
dem  für  Software-Entwickler 
ein  nützliches  Utility  sein.  Es 
geht  um  die  Programmie¬ 
rung  einer  erweiterten 
Crossreferenzliste.  Eine 
Crossreferenzliste  durch¬ 
sucht  per  Definition  ein  be¬ 
liebiges  Programm  nach  Va¬ 
riablen  und  Sprungbefehlen 
und  gibt  sie  auf  einem 
Drueke-i  in  gut  lesbarer 
Form  aus.  Wir  wollen  aber  ln 
diesem  Programmierwett¬ 
bewerb  ein  vollständiges 
Werkzeug  zur  Dokumenta¬ 
tion  eines  sich  in  der  Ent¬ 
wicklung  befindlichen  oder 
fertigen  Programms  erhal¬ 
ten.  Im  einzelnen  sollte  das 
Programm  folgendes  kön¬ 
nen: 

1.  Alle  Programmzeilen¬ 
nummern  drucken,  die 
Sprünge  enthalten.  Ausge¬ 
geben  werden  soll  die  Zei¬ 
lennummer,  dahinter  die 
Zeilen,  die  angesprungen 
werden. 

2.  Ausgabe  aller  Pro¬ 
grammzeilen,  die  ange¬ 
sprungen  werden,  wenn 
möglich  mit  den  Zeilen,  von 
denen  aus  der  Sprung  er¬ 
folgt. 

3.  Ausgabe  aller  im  Pro¬ 
gramm  verwendeten  Varia¬ 
blen. 

3.1  In  der  Reihenfolge,  wie 
sie  im  Programm  auftau¬ 
chen. 

3.2  In  sortierter  Reihenfol¬ 
ge:  Sortiert  nach  Gruppe  (In¬ 
teger,  Real,  Strings  und  Fel¬ 
der)  sowie  alphabetisch. 

3.3  In  welcher  Zeile  sie  de¬ 
finiert  werden  (Variable  =) 
und  in  welcher  Zeile  sie  be¬ 
nutzt  werden  (=  Variable). 


3.4  Es  soll  zu  jeder  Varia¬ 
ble  ein  Kommentar  eingege¬ 
ben  werden  können. 

4.  Denkbar  wäre  auch,  die 
ganze  Prozedur  innerhalb 
wählbarer  Grenzen  (zum 
Beispiel  zwischen  Zeile  1000 
und  2000)  eines  Programms 
ablaufen  zu  lassen. 

Wie  Sie  aus  dem  letzten 
Punkt  ersehen  können,  sind 
den  Ideen  keine  Grenzen 
gesetzt.  Wichtig  ist  vor  allen 
Dingen,  daß  ein  komplettes 
Dokumentationsprogramm 
für  die  eigene  Entwicklung 
und  zur  Analyse  fremder 
Programme  zustande  kommt. 
So  könnte  eine  automatische 
Aufschlüsselung  nach  Zei¬ 
lennummernoder  die  Erstel¬ 
lung  eines  Fluß-  oder  Nassi- 
Shneidermann-Diagramms 
durchaus  mit  eingebaut  wer¬ 
den.  Lassen  Sie  Ihre  Phanta¬ 
sie  spielen  und  dokumentie¬ 
ren  eigene  und  fremde  Pro¬ 
gramme  auf  die  bestmögli¬ 
che  Art  und  Weise. 

Es  wird  mindestens  zwei 
Gewinner  geben:  Einer  für 
die  beste  Lösung  in  Basic, 
der  andere  für  das  beste 
Assembler-Programm. 

Wenn  Ihre  Lösung  von  der 
oben  genannten  Aufgaben¬ 
stellung  etwas  abweicht,  so 
ist  das  keine  Disqualifika¬ 
tion.  Bewertungskriterien 
werden  vor  allem  sein:  Nutz¬ 
barkeit,  Übersichtlichkeit, 
Schnelligkeit  und  Komfort, 

Schicken  Sie  Ihre  Lösung 
unter  dem  Stichwort 
»Programmierwettbewerb: 
Dokumentationshilfe«  an  fol¬ 
gende  Adresse: 

Markt  &  Technik  Verlag  AG, 
Redaktion  64'er,  Hans- 
Pinsel-Str.  2,  8013  Haar  bei 
München 
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Einmal 

im  Monat  gibt  es  die 

SUPERCHANCE 


Diese  nicht  einmalige  Gele¬ 
genheit  sollten  Sie  nutzen.  Wie? 
Schicken  Sie  uns  Ihr  bestes, 
selbst  erstelltes  Programm.  Bei 
der  Art  des  Programms  sind  wir 
nicht  wählerisch. 

Sie  haben  ein  sehr  gutes 
(Schieß-,  Knobel-,  Denk-,  Action- 
Abenteuer-)  Spiel  geschrieben: 
einschicken! 

Sie  verfügen  über  ein  komforta¬ 
bles  Disketten-Kopier-(Sortier) 
Programm  mit  einigen  außerge¬ 
wöhnlichen  Leistungsmerkma¬ 
len:  einschicken! 


Sie  haben  das  Basic  um  einige 
sinnvolle  Befehle  erweitert:  ein¬ 
schicken! 

Sie  arbeiten  mit  einem  selbster¬ 
stellten  Textverarbeitungspro¬ 
gramm,  einer  eigenen  Tabellen¬ 
kalkulation,  einem  semiprofes¬ 
sionellen  Datenverwaltungspro¬ 
gramm:  einschicken! 

Sie  zeichnen  und  konstruieren 
mit  einem  selbsterstellten  Pro¬ 
gramm  in  hochauflösender  Gra¬ 
fik:  einschicken! 

Wir  freuen  uns  über  jeden  Bei¬ 
trag  und  honorieren  mit  bis  zu 


2  000  Mark 

für  das  Listing  des  Monats 


Aus  den  besten  Listings,  die 
veröffentlicht  werden,  sucht  die 
64 'er- Redaktion  einmal  im  Monat 
das  »Listing  des  Monats«  aus.  Alle 
Listings,  die  im  64 'er  abgedruckt 
sind,  werden  mit  100  bis  300  Mark 
honoriert.  Die  genaue  Vorge¬ 


hensweise  beim  Einsenden  von 
Listings  ist  in  »Wie  schicke  ich 
meine  Programme  ein?«  Ausgabe 
4/84  beschrieben: 

Schicken  Sie  Ihr  Listing  an: 
Redaktion  64’er,  Superchance: 
Listing  des  Monats,  Hans-Pinsel- 
Str.  2,  8013  Haar  bei  München. 


m 


Anwendung  des  Mo¬ 
nats,  was  ist  das?  Nun,  Sie 
haben  einen  Commodore 
64  oder  einen  VC  20  und 
versuchen  diesen  irgend¬ 
wie  sinnvoll  einzusetzen. 
Unter  einer  sinnvollen 
Anwendung  versteht  die 
64’er  Redaktion  alles,  was 
beispielsweise  Program¬ 
me  im  häuslichen  Bereich 
bewirken.  Es  kann  sich 
dabei  um  die  Berech¬ 
nung  der  Benzinkosten 
für  Ihren  Wagen  handeln, 
um  ein  eigenes  Textverar¬ 
beitungsprogramm  ge¬ 
hen,  sich  um  die  Verwal¬ 
tung  Ihrer  Tiefkühltruhe 
drehen  oder  ein  ausge¬ 
klügeltes  Telefon-  und 
Adreßregister  sein. 

Setzen  Sie  Ihren  VC 
20/C  64  mehr  oder  weni¬ 
ger  beruflich  ein?  Auch, 
oder  vor  allem,  das  ist  ei¬ 
ne  sinnvolle  Anwendung. 
Sie  führen  die  Lohn-  und 
Gehaltsabrechnung,  Ihre 
Lagerverwaltung,  die  Be¬ 
stellungen  auf  einem 
Commodore-Heimconi- 
puier  durch?  So  spezielle 
Anwendungen  wie  die 
Berechnung  der  Statik 
von  selbstgezimmerten 
Regalen,  von  Klimadia- 
grammen  oder  Vokabel¬ 
lernprogrammen  für  den 
Schulunterricht  oder  die 
Zmsberechnung  bei  Kre¬ 
diten  sind  ebenfalls  The¬ 
men,  die  mehr  als  konkur¬ 
renzfähig  sind. 

Uns  ist  die  Anwendung 
des  Monats 


wert 

Schreiben  Sie  uns,  was 
Sie  mit  Ihrem  Computer 
machen: 

Redaktion  64’er,  Aktion: 
Anwendung  des  Monats, 
Hans -Pinsel  Str.  2,  8013 
A  Haar  bei  München.  ,• 
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Fortsetzung  von  Seite  28 

Verlust  —  möglich;  mit 
dem  Cursor  kann  man  auf 
das  gewünschte  Pro¬ 
gramm  fahren  und  mit 
CTRL +  Lladen.  CTRL +  / 
liest  den  Fehlerkanal  der 
Diskette.  Das  lästige  »,8« 
nach  dem  LOAD-  oder  SA- 
VE-Befehl  darf  entfallen, 
weil  die  Primäradressen  1 
und  8,  sich  nun  beide  auf 
die  Floppy  beziehen. 

Der  Preis  ist  mit  295 
Mark  nicht  gerade  nied¬ 
rig,  aber  dafür  erhält  man 
eine  Lösung  fast  ohne 
Kompromisse.  Mitgelie¬ 
fert  wird  neben  der  Hard¬ 
ware  eine  Einbauanlei¬ 
tung  und  eine  Diskette  mit 
Kopierprogrammen.  Als 
zusätzlichen  Service  bie¬ 
tet  die  Herstellerfirma  an, 
daß  im  Falle  von  Überar¬ 
beitungen,  jederzeit  die 
alte  gegen  die  neueste 
Version  kostenlos  umge¬ 
tauscht  werden  kann. 

Bedenkt  man,  daß  die 
Entwicklung  von  »schnel¬ 
leren«  Soft-  und  Hardware¬ 
lösungen  für  die  Floppy 
gerade  erst  begonnen  hat, 
muß  man  sich  über  die 
Qualitäten  dieser  Produk¬ 
te  freuen.  Interessanter¬ 
weise  kommen  sie  nicht 
über  den  großen  Teich  zu 
uns  herüber.  Auch  wenn 
nur  die  Vorabversionen 
vorgeführt  wurden,  lassen 
sie  doch  in  jedem  Fall  er¬ 
kennen,  daß  wirkliche 
Könner  dahinterstecken. 
Und  sie  wissen  genau, 
daß,  so  sensationell  ihre 
Entwicklung  auch  ist,  die 
Konkurrenz  nicht  schläft. 
So  wird  ein  Produkt  mit 
98%iger  Kompatibilität  bei 
einer  sechsfach  höheren 
Geschwindigkeit  erfolg¬ 
reicher  sein,  als  80%ige 
Kompatibilität  bei  einer 
fünfzehnfach  schnelleren 
Ladezeit.  Sicher  wird  in 
dieser  Hinsicht  noch  eini¬ 
ges  auf  uns  zukommen. 
Man  kann  gespannt  sein. 

(M.  Kohlen/ 
D.  Weineck/gk) 


Bezugs-  und  Informationsquellen:  Roßmöl¬ 
ler  GmbH,  Finkenweg  1.  3309  Meckenheim 

S  &  S-Soft.  Schöttelkamp  23a.  4620  Castrop- 
Rauxel  9 

Optronik  Service  International,  Salzdahlu- 
mer  Str.  196,  Postfach,  3300  Braunschweig 
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Softlearning 


Die  Lehr-  und  Lernmethoden 
an  den  Schulen  ändern  sich  lau¬ 
fend.  Auch  auf  dem  Gebiet  des 
computerunterstützten  Lernens 
können  neue  Wege  beschritten 
werden.  SM  hat  sich  bei  der  Aus¬ 
legung  ihrer  Lernsoftware  an 
dem  Erfolgskonzept  des  Super¬ 
learning,  das  bei  der  Schulung 
von  Führungskräften  in  der  Wirt¬ 
schaft  seit  zwei  Jahren  für  Furore 
sorgt,  orientiert.  Also  Lernen  mit 
dem  C  64,  ohne  blockierende 
Ängste  und  Streßgefühle. 


Alles  über  Strings 

Fast  kein  Programm  kommt  oh¬ 
ne  Strings  aus.  Was  ist  eigentlich 
ein  String?  Warum  gibt  es  manch¬ 
mal  »Zwangspausen«  —  die  Gar- 
bage  Collection  —  beim  Verar¬ 
beiten  von  vielen  Strings  und  wie 
kann  man  sie  umgehen?  Die  Ant¬ 
worten  und  viele  Tips  und  Tricks 
lesen  Sie  in  der  nächsten  Aus¬ 
gabe. 

Förth  to  Glarity 

Voran  zum  Verständnis  —  näm¬ 
lich  zum  Verständnis  von  Forth, 
dieser  eigenwilligen  Program¬ 
miersprache,  die  in  letzter  Zeit 
immer  größere  Verbreitung  fin¬ 
det.  Anhand  eines  konkreten  Pro¬ 
grammierbeispiels,  nämlich  dem 
Bau  eines  Decompilers,  wird  in 
leicht  nachzuvollziehender  Form 
in  die  grundsätzliche  Struktur  der 
Sprache  eingeführt. 

Hypra-Load  mal  fünf 

Das  in  Ausgabe  10  vorgestellte 
Hypra-Load  war  eine  Sensation. 
Aus  diesem  Grund  bringen  wir 
viele  Anregungen  und  Verbesse¬ 
rungen  zu  diesem  Programm.  Au¬ 
ßerdem  erfahren  Sie,  wie  Hypra- 
Load  fest  in  das  Betriebssystem 
eingebaut  werden  kann. 

Außerdem... 

—  Hi-Eddi,  ein  faszinierendes 
Zeichen-  und  Grafikpro¬ 
gramm  als  Listing  des  Monats 

—  ein  strategischer  Handball¬ 
trainer  als  Anwendung  des 
Monats 

—  sieben  Kurse 

—  und  wieder  viele  Tips  und 
Tricks  für  C  64  und  VC  20. 


Der  C  16,  ursprünglich  als  Nachfolger  des  VC  20  konzipiert,  ist  da¬ 
bei,  sich  einen  eigenen  Platz  an  der  Sonne  im  heißumkämpften  Markt 
der  kleinen  Computer  zu  sichern.  Sein  Basic  3.5  mit  mehr  als  75 
Befehlen  unterstützt  Grafik,  Sound  und  strukturierte  Programmierung. 
Ist  der  C  16  wirklich  nur  als  Nachfolger  des  VC  20  gedacht,  oder 
kann  er  sogar  dem  C  64  das  Leben  schwer  machen?  Unser  großer 
Testbericht  zeigt,  was  der  C  16  wirklich  kann  —  und  wer  ihn  sich 

kaufen  sollte. 


Assembler  im  Test 

Immer  mehr  C  64-Besitzer  wol¬ 
len  mehr  als  nur  in  Basic  pro¬ 
grammieren.  Um  je  '-.eh  effektiv 
in  Maschinensprache  arbeiten  zu 
können,  braucht  man  einen  As¬ 
sembler.  Wir  haben  die  bekann¬ 
testen  und  leistungsfähigsten  für 
Sie  herausgesucht  und  getestet, 
darunter  MAE,  Profimat,  Pofisoft, 
ASS64,  ASSI  und  TE.X.AS.  Lesen 
Sie,  welcher  für  Sie  am  geeignet¬ 
sten  ist. 


D 


Spracherweiterungen  für  den 
C  64  gibt  es  schon  eine  ganze 
Menge.  Die  bisher  bekannteste 
dürfte  wohl  Simons  Basic  sein. 
Hat  em  neues  Produkt  wie  G- 
Basic  eine  Chance?  Was  leistet  G- 
Basic?  Gibt  es  Probleme  oder 
Fehler?  Ist  es  mit  259  Mark  preis¬ 
wert  oder  wieder  nur  eine  Lö¬ 
sung  mit  Kompromissen? 


Digitalisierer 
verwandeln  Vi¬ 
deobilder  oder 
Sprachimpulse 
in  für  den  Com¬ 
puter  verständli¬ 
che  Signale.  Der 
Empfang  von  Sa¬ 
tellitenbildern, 
die  Auswertung 
durch  den  Com¬ 
puter  und  die 
Ausgabe  auf  ei¬ 
nem  Farb¬ 
drucker  ist  nur 
ein  Beispiel  für 
die  Anwendung. 
Lassen  Sie  sich 
überraschen, 
was  man  mit  Di- 
gitalisierern 
noch  alles  ma¬ 
chen  kann. 
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